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ABSTRACT 


A number of tools have been developed specifically 
to help construct compilers. These tools range from scanner 
and parser generators to complex systems, variously called 
compiler-compilers, compiler generators, or translator 
writing systems. In what we may call another significant 
step to reach the goal of writing a compiler-compiler, we 
coeJ-'esce the existing scanner generator and parser generator 
into an integrated system which generates a parser (with 
error recovery) together with a compatible lexical analyser 
from a description of the lexical and syntactic structure of 
the source langua.ge. Before the integration process we also 
bootstrap the existing lexical analyser generator and parser 
generator. Such a bootstrapping makes possible ready 
alteration of the specifications formats to be incorporated 
into the two generators without much effort. Also, we 
exploit the fact that the parser generated by the parser 
generator has a good error recovery which is now made 
available in the input phase of the generators. 

The lexical analyser generator input is through 
regular expressions while the parser (IL(l) recursive descent) 
generator accepts an EBRF specification. 

One significant advantage of using an integrated 
parser cum lexical analyser geners-tor is increased reliability. 
An off-the-shelf, mechanically generated parser with lexical 
analyser is more likely to be correct than one produced by 
hand. 
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GHAPTER I 
OVERVIEW 


Our work is, 'basically, an extension to the 

parser generator (SD 81) and the Lexical Analyser Generator 

(SG 81). , Presently, we have an LL(l) recursive descent 

parser generator which accepts a definition of the syntactic 

structure of the Language through EBM' and outputs a 

recursive descent parser with error recovery. The lexical 

accepts 

analyser generator /.an input specification through regular 
expressions. Both these generators scan through their input 
specification before the processing phase. Now, there are 
two major drawbacks in the input phase of these generators^ 

i) They do not have good error recovery and 
error reporting. 

ii) Any slight ameliorations in the format of the 
specifications that the user may desire would 
mean a lot of patch work with the hand-coded 
scanners. 

So, we obviate these problems for the user by 
bootstrapping the generators. That is to say, we replace 
the existing input phases of the generators by the integrated 
parser cum' lexical analysers generated by these two generators 
for their input specifications. This, obviously, eliminates 
the problem of error recovery and reporting since the 
generated parser has both these features. Secondly, the user 
can, at his wish change the format of specifications through 
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■bootstrapping and some amount of hand-coding. 

We have also made suitable changes in the lexical 
analyser generator’s program synthesis phase so that the 
new lexical analyser is compatible with the generated parser. 
These two generators are coelesced into what we call a 
Parser with Lexical Analyser Generator (PLAG). PLAG 
(Pig. l.l) makes use of some invariant declarations and 
procedures stored in other files. PLAG takes in the Lexical 
analyser specification (LBXY) and/or the parser specification 
(par) and generates a working parser with lexical analyser. 

There is much convenience in this integration as 
the user does not have to bother about interfacing problems 
of the parser and lexical 'analyser. 
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CHIPTBR II 


4 :- 


LBXICAL MALYSBR GENERATOR 


In this chapter we briefly summarize the principal 
features of the Lexical Analyser Generator (LAG) (SG 81). 

The structure of LAG is shown in Riguie 2.1. 

2.1 The Generator ; 

2.1.1 In-put Analyser: This phase is like the front end 

of a compiler. Lexemes are formally specified by regular 
expressions. The input analyser performs syntax analysis, 
with error recovery, of the specification. Further more, 
it constructs various internal tables for use by subseq.uent 
phases, 

2.1.2 Internal Form Generation; The task of internal 
form generation is a sequence of 3 steps (Figure 2,2) 
concerning conversion of- 

i) RE to non-deterministic finite automata (NPA). 

ii) UFA to Deterministic finite automata (DFA). 

iii) DFA to reduced DFA. 

The output produced by this phase is a reduced 
DFA to process input characters for recognizing lexfetes,. 



2 , 1. 3 Lexical Analyser Program Sunthesizer; 


The input to the synthesizer is a description 
of the following, 

i) Transliteration table 

ii) Minimized LEX DP A table 

iii) Keyword wordlists 

The task of the synthesizer is to produce an 
output program in s high level language whose code reflects 
the state transition structure of the generated lexical 
analyser. 

2,2 Innut Snecif ication: 

The input specification, essentially, consists 
of 4 declarations (Figure 2,3). 

2,2,1 LI-TERAL Declaration; 

Here the user defines the transliteration desired. 
He associates a subset of the ASCII set with each identifier 
on the IHS. This subset may be specified by enumerating the 
individual characters in a string, or by defining a range 
with a lower and an upper bound. This transliteration 
permits even overlapping subsets on the EHS. The ambiguity 
is ‘resolved by mapping a character on to the literal it was 



last defined under. 



e.g. LETTER = ’A’ . . 'Z' ; 

EXP = ’B‘ 

’E' will nap onto EXP and not to LETTER. 

Einally, the use of the ke 5 rword SKIP on the LHS 
defines a special literal. Characters which map onto this 
literal are simply elided from the input stream. 

2.2.2 TOKEl Declaration; 


The identifiers on the lES represent the tokens 
which the generated lexical analyser will recognize. They 
are defined as regular expressions over literal identifiers. 
The Keyword HULL may also be used in the RHS to represent 
the empty string. 


e.g. IDENT = LETTER (LETTER- i DIGIT) •, 

NUMBER = DIGIT + j 
A = DOT (DOT: NULL) 

2.2.3 DBLIMITER Declaration; 

This declaration is optior-al. A list of literal 
identifiers is specified. These literals are treated as 
delimiters between tokens. In effect, the generated lexical 
analyser will skip over an initial seq.uence of such literals 



before beginning to accept a token. 


e.g. DJLMITSR BLMT£ 
2. 2.4 K3YW0RD Declaration; 


The lexical analyser generated by lAG employs the 
'reserved word strategy' (AU 11 ), a method ifhich is freq.usntly 
used in practice. ' This technique associates' reserved words 
with a token. When the lexical analyser recognizes this 
token, the substring accepted is compared with the reserved 
words. If a match is found, the Lexeme returned is the one 
corresponding to the Keyword matched. If not, the lexeme is 
the token recognized. 

The user can associate keywords with tokens through 
this declai*ation. This is done by enumerating a list of 
string- identifier pairs,- In a pair, the string is the 
kesTword and the identifer is the Lexeme associated with it. 

We call such a list a 'word list’. 

e.g, TOKEN IDBNT 

WL =4 'BEGIN' BEGINSY , 'END' BNDSY_> 

TOKEN NIM 

ORYPTIO =< '007' JB> 

We postpone the discussion on the output of the 
LAG to Chapter 17, 
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CHAPTER III 
PARSER CBNBRATOR 


This chapter deals with the method of generation 
of recursive descent parsers with error recovery for LL(l) 
grammars from the specification of the gra,mmar in BBHF •' 

( SD 81). The structure of PBRG is shown in Figure 5.1. 


5.1 The Cenerator 

5.1.1 Innut Analyser : 




The input analyser performs syntax analysis and 
context-sensitive analysis, with error recovery on the 
input specification. It also constructs the various internal 
tables. The following context-sensitive, checks are .made on 
-the sj>-ecif ication, • 


1 . 

2 . 

5. 

4. 


The set of terminal and non-terminal symbols 
should be disjoint. 

Any terminal or non-terminal symbol should not 
be declared more than once. 

The use of a terminal or non-terminal symbol in 
a production must be preceded by its declaration. 

There should be no more than one production for 
the same non-terminal. 


5. There must be a production for the axiom, 

6, All the non- terminals accessible from the axiom 
should have expansions. 



Ill- 


Error reporting is carried out if any of the 
conditions is violated. 

'^.1.2 Internal Eorta G-enerationt 

The following tables are generated by the 
input analyser. 

1. Two tables for storing na^nes of terminal and 
non-terminal symbols in the alphabetic order. 

A terminal or a non-terminal is identified by 
its position in the table. 

2. ACCBSSSBT (array of sets), to contain the set 
of non-teminals accessible from a non-terminal. 
AXACOSBT denotes the set of non-terminals 
accessible from the axiom, 

3. DBIIMSBT, to contain the set of MliW (most likely 
to be missing) symbols in the grammer. 

4. PRODARE.AY, to store the productions of the 
grammar in sequence. 


Grammar Processor i 


The structure of the grammar processor is shown 
in Figure 3.2, 


3.2 Error Recovery; 


The error recovery in the generated parser is the 
one introduced by PAI (pR 80), ¥e have a two-level recovery 
strategy-local and global. During error-recovery, a basic 



consideration is that the erroneous text closely approximates 
some correct sentence of the language. Hence the error- 
recovery scheme should first attempt to correct the text 
locally aroxind the point of error so as to get a legal 
sentential prefix. The actions may involve the insertion, 
replasaement or deletion of a certair number of symbols. 

Only if local recovery fails, we should use the global 
recovery strategy. 

a) LOCAL; In this phase, a single- token correction is 
attempted at the point of the error. Insertion and then 
replacement of a single token is attempted, while the 
respon 'ibility for di-^letion is deferred to the global recovery 
phase. We require the lexical analyser to handle two Lexeme 
look-ahead, 

b) GLOBAL; If the local recovery phase fails to take 
definite and unambiguous decision, control passes to the 
global recovery scheme, that works in ’panic-mode' ( Gri 76), 

In this phase the input is scanned until one of a set of 
recovery symbols is encountered. The skelton of this scheme 
is based on Amman's scheme (Amn 78). 

In LL(l) parsing, an error is discovered when the 
current look-ahead symbol does not match the expected terminal 
symbol generated by a left-most canonical derivation. 
Therefore, whenever there is a definite expectation of a 
terminal symbol, or a set of terminal symbols at the current 
point of parse, a procedure TBSTSYS is called that discovers 
the error, attempts local repair, failing which it performs 
global recovery. TBSTSYS is aided in this process by the sets 
of terminal symbols, that are characteristic of the GBG for 
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the purposes of error detection, local repair and global 
recovery. 

5.3 Innut S-peclf ication: 

The syntax of the input specification is given 
4 " 

in Figure 

In the specification the onlj^ value of selident 
allowed is ’B’ and its presence implies that this tsyin 
should be treated as an MIM symbol. 


oOos- 
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SYMBOLS i\KD CCMHJTIFG 


EEIDATIOHS 












CHAPTER IV 


BOO TF! TRAPPING THE GENEBi.TORS 


In this chapter, we devote t'o the need for and 
the advantages gained in bootstrapping the input phases of 
the two generators. As explained in chapter II and III 
the LAG and PBRG generators had originally hand-coded leacical 
analysers for their input specifications. Also, these 
lexical analysers did not have good error recovery features. 
So the user, often, had problems in coming out with the 
correct specification when he wanted to generate lexical 
analysers and/or parsers. In the case of PERG which had no 
error recovery at all he had to run the program not less 
than 3 to 4 times which proved to be extremely wasteful. 

In the case of LAG, the user had problems trying to decipher 
the errors from the cryptic error report produced. So much 
so, the original versions of LAG and PERG taxed the user 
in stipulating him to come up with the ri^t specification. 

We have obviated this difficulty by replacing the old input 
analysers with parsers with good error recovery through 
bootstrapping. 

One more consideration which made us effect this 
change was the fact that the user should be able to alter 
the input specifications to suit his needs without much 
effort. That is to say, by making the least number of 
changes in the input phase. We achieve this again through 
bootstrapping. Now, what the user needs to do is whenever 
he wants to change the format of the input specification, he 
replaces the existing input phases by the generated input 
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phases for the new specifications. After this he’ll have 
to make sone minor changes like insertion of some hand— coded 
procedures or other code to carry the necessary actions when 
specific lexemes are read, 

lastly whenever the user discovers errors in the 
input phase he can just bootstrap to replace the erroneous 
version. 

4.1 Bootstrapping the G-enerators i 

4.1.1 Bootstra-p-ping the LAGi 

¥e write a specification for the LAG- to generate 
a lexical analyser for its own input specification (see 
Fig, 4.1). Likewise we write another specification for the 
PBRG- to generate a parser with error recovery for the input 
specification of LAG (see Fig. 4.2). Or in the coeleseed 
version (FLAG) we write lexical analyser andparser specifi- 
cations for the LAG input and generate the parser (with error 
recovery) integrated with lexical analyser (-Prograe 4x1). 

¥e use this for scanning the input specification of LAG and 
checking for syntax, (instead of the existing input phase) 

4.1.2 Bootstran-ping the PBRG: 

This is identical to the bootstrapping of LAG. 

Here we write lexical analyser and parser specification for 
the PBRG input and generate a parser (with error recovery) 
integrated with lexical analyser for the PBRG input (-Exog. 4 » 2^ ) ■ 

See Figure 4.3 , 4.4. 





Ve replace the existing hand-coded version hy this 
bootstrapped version. 

4.1.3 Hand-Coding; 

After generating the parsers for the specifications 
we introduce some code either in the form of procedures or 
otherwise mostly at the beginning of every non-terminal 
procedure. This is necessary as some actions are taken 
where specific tokens are recognized- for instance updating 
tables, lists, construction of nfas etc. It is here that the 
effect of bootstrapping is not rendered to the fullest extent 
but it could not be helped with the present versions of LAG 
and PBRG. 

4.2 Handling a new specification; 

If the user wants to make some changes in the 
specifications formats all he has to do is write the lexical 
analyser and parser specification for the new format and 
generate the parser ■ ^with lexical analyser. Next he replaces 
the existing parser with the new one, 

finally the user has to insert some code for 
every non— terminal procedure so that the replaced version 
conforms with the original one. 
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OHAPIBR Y 

COBIESCII& THE GENERATORS 


5.1 An Overview of the Outputs of LAG and PBRGt 

5.1.1 Lexical Analyser; 

The LAG takes in a specification of the lexicon 
in the form of regular expressions. It outputs a collection 
of procedures -which could he called to get the next lexeme 
in the input stream. In what follows we describe in minor 
detail as to the nature of these procedures. 

i) Nxtlit; This is just like the character processing 

routine in a compiler. It makes use of 
the LIT array which contains the literal 
values associated with all characters in 
the ASCII set. The parameter passed on 
by this routine is just the literal value 
associated with the next character in 
the input stream. 

ii) Initialise; Basically an initialization routine 

initialise performs the character-literal 
association for the entire ASCII. It 
establishes the keyword record information 
for all the keywords declared by the user 
and maintains the list of tokens which 
have keywords associated with them. 

Finally it sets up information of the 
literals which are to be treated as 
delimiters in the input stream. 



iii) Nxtsyms Nxtsym supplies the lexical value of 

the next lexeme encoimtered in the 
input stream ( every token and keyword in 
the lexicon defined hy the user is 
assigned a unique lexical value). It 
. is hasical^.y a series of goto 
statements embedded with calls to Hxtlit 
and store ( to keep track of the token 
during the process of calls to Nxtlit), 
Finally, on encountering tokens which 
have keywords it does a binary search on 
the appropriate keyvrord list, -On success 
the lexical value associated with the 
keyword string supercedes the earlier 
value. 


LiNB is an array containing the current line of 
the input stream while BUP stores the current lexeme that is 
being spanned, 

5.1.2 Parser; 

The user specifies the syntax in ' BBNF, PBRG- 
generates an LL(l) recursive descent parser with error 
recovery. The specification consists of the set of productions, 
the set of terminal (lexemes) and non-terminal symbols and the 
goal symbol. Bach non- terminal that the user defines appears 
as a procedure in the parser generated. Apart from this 
there are other error routines, accept routines and skip 
routines which are invariant. 





Brror, Erronaessage, Processerror, 

Lexerror, errorset, errorsym, skiperror, localerror; 

These are the invariant error routines outputted 
by PBRG, Galls to these routines are made whenever an error 
is encountered in the syntax of the input, 

TBSTSYS: Whenever an error in the syntax is encountered 

in the input stream this routine ensures that the succeding 
lexemes in the stream are skipped till a parsable point is 
reached. Galls to Testsys are embedded in every non-terminal 
procedure. 

INITPEBVSBTSi It provides information essential to this 
error recovery process. It is, basically, a list of sets 
of all S 3 niibols which could precede each terminal symbol in 
the input stream. 

LBXANALYSB: Provides the nedt lexeme (of type enumeration) 
by calling the lexical analyser. 

5.2 Incomnatibilitv of the Lexical Analvsor and the Parser: 

In its original version the lexical analyser was 
oust supplying a lexical value of the lexeme encountered while 
the parser assumed interfacing with a hypothetical lexical 
analyser which supplied an enumeration type of the next lexeme 
encountered. To get by this discrepency we had to modify the 
lexical analyser to pass on the next lexeme of type enumeration. 
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To aid this we now have an initialisation routine called 
Initsypos which associates to all the lexical values of 
the lexemes. Their corresponding enumeration type names. 

We also have procedure Initsymnames which initialises the 
token and keyword arrays and is used hy Brrormessage. 

Hxtlit had to he modified to take care of the processing of 
the errors in the previous line whenever eoln is encountered i 
Procedure Lexanalyse of the parser also underwent some 
changes so as to interface properly with the lexical 
analyser. 

5.3 The Coelesced Generator PLAGt 

Figure 1,1 shows PLAG- in its present version. 

The user can generate either or both the lexical analyser 
and the parser. LBXY takes in the lexical analyser 
specification while PAE takes in the parser specification. 

On providing both LBXY and PAR the user can generate an 
integrated lexical analyser-cum-parser with error recovery, 
PlAG- makes use of some invariant routines like the character 
processing routine (nxtlit), error routines and other 
variable declaration is UTYDBC and NXTIIT, The output 
controllers for LAG- and PSRG in the PlAG system ensure 
proper outputting of the various procedures. Specifically, 
the output controller phase of MG underwent lot of changes 
to ensure generation of a lexical analyser that is compatible 
with the parser. Many new procedure have been added in 
PLAG to this effect. The existing input analysers in the 
LAG and PBRG phases have been .replaced by the 

bootstrapped versions as explained in chapter IV, 
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5«4 Efficiently Considerations of the Parser-cum-Lexioal 
Analyser ; 

One of the primary drawbacks of programs 
generated by systems like PlAG is that they are not as 
efficient as ones written by hand. But we bank on the 
fact that generated programs are much more reliable than 
hand-coded ones. The chief problem is that there is a 
trade-off between how much work the generator system can 
do automatically for its user and how flexible the system 
can be. We have tested the programs outputted by PLAG 
and then results have been very encouraging.Por instance, 
the parser-cum-lexical analyser for the language pascal 
has compared reasonably well with its hand-coded counterpart 
PASRBL. 
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CEAPTER VI 


PLA& IMPIJg MD QUTPUI 


6.1 Input S-pecif ications; 


Tile input specifications to the PLAG- are 
explained in chapters II and III, ¥g have generated a 
Parser- cun-lexical analyser for PxlSCiiL (with certain' 
linitations) as Pascal does not enjoy the LL(l) property. 
Figure Nos. 6,1, 6.2 show the lexicon and parser specification 
of the language, 

6.2 PLAG- Out-put; 

Most of the details of the program generated hy 
PLAG- have "been discussed in chapter V. The parser-cum-lexical 
analyser generated for pascal is .listed in Program 6,1, 


6.3 Critical A-p-praisal of Pascal Syntax;- 

Pascal grammar does not enjoy the LL(l) property 
hecause of the dangling else prohlen. Binding the else 
clause to the closest if-then construct is a programatic 
solution of the problem. However, w-o obviate this short fall 
by generating a pascal syntax a,nalyser tha.t caters to only 
the if-then construct and a lexical analyser that recognizes 
the else symbol. After generating wo modify the non-terminal 
IFSTMT procedure so as to continue parsing whenever an else 
symbol is encountered. 
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This is done as follows. Else-sy being a keyword that is 
declared, we don't skip elsesy when encountered in the 
input stream (see the modification in procedure Testsysnew 
Figure 6 . 3 ). Also, when an elsesy is recognized after the 
if condition then statement construct in the input code 
it is just globbed up and the next symbol is req.uosted. 

On meeting an if symbol procedure ifstrat is called again 
else procedure statement is ca,lled (sec Figure 6,4 and 6,5). 
Thus, by introducing some amount of hand-code we obviate the 
non-lli(l) nature of Pascal syntax. 

Apart from this, Pascal syntax has the following 

drawbacks; 

1. In type-denoter, both simple type and enumeration 
type may start with an identifier, arbitration is possible 
only after the scanning of the next symbol. Due to this 
delayed arbitration, syntax can not reflect the semantics 
property, 

2, Writing LL(l) grammar for the optional semicolon 
before the 'end' of the record declaration and case statement 
construct is quite involved and the grammer becomes messy. 


Error Recovery Property; 

The factor most detrimental to the error recovery 
scheme is the overloading of 'EK'D' and 'BEGIN' symbols. Due 
to their dual roles and bounda,ry symbols for block and 
statement, any mistake concerning these symbols will cause 
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not only a misinterprotation about the body of the current 
block, but it is highly probable that the effect will be 
propogated .'resulting in misinterpretation about the 
body of other blocks also. Since the important f -unction 
of context switching takes place at block boundaries, this 
will create a long stream of impleasant sympathetic error 
message. One solution to such a problem could bo the use 
of ’blockbegin* a,nd 'blockond* as end symbols for a block, 
such that proper error recovery actions can be taken based 
only on syntax. 

Switches: 


Two switches C and F are provided in the parser 
specification. The violation of LL(l) property does not 
stop the process of code generation if 0 switch is off; 
whereas if it is on, the code generation process is blocked 
if the grammar is not LL(l). The status of the forward 
switch dictates whether forward declarations would be 
provided (F switch is on) or not (F switch is off). By 
default G is on and F is off. 

Error Messages: 

As and when errors ' in syntax are encountered in 
the FLAG specifications they get displayed on the TTY. Due 
^ to the very good error recovery scheme that has been 
provided at the input analyser phases of PIAG, it becomes 
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very convenient to the user to come up with error-free 
specifications without much effort. 
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GH.APTBR VII 


AUTOMATIC INTBEFACIBG WITH HAro-OODED 
SEMANTIC PROCESSING 


We have, now, an automated aid for generating a 
lexical analyser-cum-parser available. It seems appropriate 
at this sta^e to investigate the interfacing of proper 
semantic processing and cods generation with the present 
lexical analyser-cum-parser. In this chapter we suggest 
a way of automatic interfacing of this output phase with 
the rest of the phases which we assume will bo hand-coded. 

Interfacing with the Outside World; 

Every non-terminal in the parser grammar specifica- 
tion appears in the generated parser as a proeodure definition. 
Each such procedure consists of;- 

1. Calls to the error recovery routine TBSTSYS 

2. Calls to non-terminal procedures if appropriate 
points (including .itself) 

3. Accepting or gobbling up of terminal symbols 
whenever the syntax stipulates. 

Almost all of the semantic processing could be 
done at the beginning/ end of a procedure definition and 
bofore/after any terminal symbol is gobbled up. So we suggest 
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an automatic means of spewing out every non- terminal 
procedure in the parser generated with Hand procedure 
calls at appropriate places. This would mean that, at 
all these places where we have calls to Hand procedures we 
could do semantic processing by defining the same in the 
outside world. Whenever we decide not to do any processing 
at a particular Hand procedure, we can define a null procedure 
(a procedure which does nothing) in the outside world. 

The success of such approach will be ensured 
if we can automatically cook unique names for each of such 
Hand procedures when the parser is generated. The need for 
such a uniqueness will be clear in the following treatment, 

1. The first statement of any procedure after the 
call to Testsys will be a Hand Procedure call of the foim 
’Handprocname ’ where procname is a string of characters 
preferably the first few and sufficiently long to uniquely 
identify it from other such Hand procedures. The names of 
these Hand procedures have to be distinct as otherwise will 
land up with an unpleasant and illegal situation of having 
two Hand procedure definitions with the same name at the 
same level in the outside world. 

2, Whenever a piocedure is generated we set a comter 
variable^ To ensure uniqueness of Hand procedures within 
that procedure frca every other Hand procedure other than the 
first within that procedure we append the counter value to the 
string of characters standing for that procedure .name and 
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increment the counter for every such Hand procedure call 
generated. There are 3 places at which there secondary 
Hand procedure calls are generated;- 


a) . 

After every Accept statement 


b). 

After the beginsy following every 'whele 
Ghksymset ([ SI, S2..])' construct 

c) . 

After the thensy following every 'if 
Ghksymset ([Si,..]) construct 


3. 

We can also introduce special marker 

symbols in 


the specification to dictate generation of Hand procedure 
wherever they are tagged. For instance at the beginning of 
a production the user can insert a marker symbol so that 
in the parser generated the procedure corresponding to that 
non-terminal starts off with a Hand procedure call. This 
gives the fulle'est flexibility for Hand procedure generation. 

By this we now have a systematic way of cooking 
Hand procedure names. Once this is done the interfacing with 
the outside woii±d becomes very easy. A switch could be 
provided in the specification to suppress such a generation 
of Hand procedures when the user wants. 

PROG- 7.1 shows how a sample non-terminal procedure 
would look like after spewing out hand procedures at suitable 
points. 
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O HAPTBR VIII 

BPILOGUE AND SUGGESTIONS ROR FURTHER MOEX 


With an automated aid for generating a parser- 
Gum-lexical analyser we are now one more step ahead towards 
our goal of developing a compiler compiler. I'his experience 
has heon quite rewarding. 

Scope for improvement in the present version of 
PLAG lies in;- 

1. The choice of efficient data structure for 
representing the productions. The use of linked list 
structure, that stores the parse tree for the productions 
could make the algorithm more efficient, since it allows 
proper association of control sets to he used by successive 
passes and avoids the need for rebuilding the parse tree 
during every pass of the grammar. The dynamic space 
allocation also removes the arbitrary limit on the total 
length of productions. 

2, The use of an abstract data type BIGSBT (as in 
LAG) with Operations defined on it rather than the standard 
set in Pascal. This will increase the upper bound on the 

number of terminals and non-terminals in the input grammar. 
The possible extensions to the PLAG are:- 

1. The automatic generation of nesting structure for 

the parser. Ri^t now all' the procedures are produced at the 
same level, augmented by necessary forward declarations 





(when S' switch is on), A bettor approach would be the 
generation of a prOper'Hjr nested parser. 

2. The modifications to handle L-attribute grammars 

(Kch 81, Sgh 81). 

Development of automated aids for semantic 
processing and code generation. 
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UNIT --> 'SrHlNG' fKAUGEl . 
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TOKFnDECL --> 'TOKENSY' REGHLAH , 

regular --> kp:goef < 'SF^ITCOl' regdff > , 

KEGDEF --> 'TIUENI'' 'TEU' RE , 
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DeorMlI'ERU — > ^OELIMSY' ONgntLlR / 'TCuw'MA' ONEHELIM , 

ONEUELiM --> "'MUENI'. , 

KEYWORDDEC -•> 'KeY<sDRSY' : 'fOKEiViS!' TUKENwr.pFC > , 

It,iKE,VWLOer --> 'TIUENI' WuOEE , 

,VLDEF — > 'EU' PATRLIST , 

PAIRLXST --> PAIR f 'iroM'vsR» PAIR I , 

PAIR — > 'LBRAC' 'SI’RIMG' 'XTDEnT' 'RBRAC' > 

' CLPSPEC ) 
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procedure TF'.STsrs ? 
bPqin 

ACCf?YS;=ACCSi'S+rEr.$HSYJ ; 
if (not (SYM tn ACcSi^)) then 
oeql n 

1 n rs Y s : s Y mpsY s ; 

it 0<ti.cuVfc;RY<>f’uf-'l.nc^L.) and (not aTimptrfcV) then . 
pegt n 

S:=ACCSYs*FRt:vjip;TrsYMT ; 
if rAPu(St<=l then 
oeqi n 

If (CARn(S)=:i) then 
oeq 1 n 

oeqtn PRESfciRVFHExtsVTi? A'rrMpTRKCV; = true;SYM;=tLMf (S); 
KP:cnVERY;sunCAL.; bnCALERRORtSYM,Tlii.SERTIO«)? 

end 


end 

else 


if (not In (TUTSYSIJ) tnen 

D €* Q i n 

PRtSfcRVESYmJLRXAs^lAuYSE; ArTMPTRECsCstrney 

PPESERVEUExtsvTif RESTORES Y«|S! = ACCS YS*PREYSETCMEXrSYM} f 

if (CARn(S)s:il 

then 

oegln SYR*=E|jY(r(S)y 

RECnVERY:=bnCAbtLOCALERROR(SYW,REPLACE«ENt>f 

end 

else S^TPSYS; 


end? 


endi 


end 

else SKTpsYS; 

end 

else SKIPSYS; 


end : 


fig. h.S TCSTSYSNEW 
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tirocedure I’^STSYS ? 
bPqln 

ACCRys; = rtCCS);s+r!ir.rfKsYj ; 
if (not (syM In Accsysji then 
beqi n 

inr.sys;=ACCJ^y^t^:rnF,syh; 

it iHKCuvypyOf'UHLncAL) and (not aTXMPtrfcV} then 
begin 

s:sAccsys*FRt;vijPx tsymi ,• 

if rARuCS')<=l then 
begin 

if fCARn(<;) = i) then 
oegin 

begin PRERERVKdExtsyilJ AT|MpTRF;CV: = Lrue;SyM; = ELMT(S); 
hECr)VRKY: = uaCAL? LncAt,GRRORlSyM,TNSERirOM)? 

end 


end 
e I se 


if fnot (syM In CTQTSYS))) tnen 
oeqin 

PRtSERVESYm7LEXft^iAUYSE; Ai:TMPIRECV;=tr'3e? 
PRES£RVFNExtsYlt?RH:ST0RESyM-S;=ACCSyS*PREYSETCNEXrsyM3 ; 
if (CARniS)=11 
then 

begin SYwssEbWrCS)? 

RECnvERy;st.OCAL;LOCALERRORCSyM,REPLACEMEflt)? 

end 

else s^TPSys; 


end 

else SKTP'syS; 

6 n ‘d 

else SKiPvSYS? 


fig. h.d TESTSYSREW 
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procedure IFSTHT? 

Deg J n 

TRSTSYSC CTFSYJ 


rBFGTNSY,CAbFSY,FORSY,GU'’’UPSt ,inEMf ,lNrCD(^ST,LHRAC 


,bPAREN fHILSX,tiOTSX,REALCONST 


RFPFATSY.SXGW ,SrPGCOWaT,THFr-(SY ,i«Rir.ESY ,WTfHSYJ+FSYSj ; 

ACCEPT ( TFS^ ) r 

eXpPESSlUNl rj:HEHSV] , [AEGlMSY,CASESi ,FnR?;Y,Gnrn3Y,TDFf4T,TFSY,i»'Tr.i«i>T,RtPEftTSY,rHEWi»Y,WHILESY,WITHSy 


F K y S 1 ^ * 

APCFpTrrHEijSY) jr 
STMT(ACCFS^S,FSY;il; 

end? 


fig, 6, A oenerateH version of IFSTmt , 


orocedure IPSTi-tT? 
ifineJ, 4 ; 

Deal n 

IFgTaVSl CIFRYJ , rdCGTi'iSY ,CA3FSY,F0RSY,G0T0SY,inENf,lNrCaWST,f.bRAC ^UPAREN ,NTGS|, NOISY, REALCONST 

HEPFATSV.SiGi^ , , -^HFNSY , WHICESY , »T rHSYJ +FSYS) ? 

/i C C K P T ( I r S Y } f 

kxpRESSlu'f'( [rHERSVJ , [ RECi NgY , CARER Y , FCkSY , GnfOSY , T DENT , IFSY , 1 M'r^Uf'ST , PEPEATSY , fHENSY ,WHII,ESY,WITHSY 

F SY^ ) f * 

ACCHPTITHFnRY); 

STMT(ACCFRYS,FSyS); 

4: 

if SYM r FbSERY then begin ACCEPT (ELSERYl ? It SYm a 

IFSY tnen IFstm'*’! ACCFSYS,FSYS) else STAT(ftCCFvRYR, FSYSi ; goto 4 encl ? 

end* 


fig, 6,5 modified version of IFSTMT , 



procerlure J.!.LUSf 
oegl n 

HANDXLLlllSJ 

tf CHKSYMSKiTCt T,-tTSSi^» , TriAl'S^M 1) then 
bPglti 

HAfsim 

DTHFR STATEMElMr^ ♦)ND1 

end ; 

Af’CFpTc ARrtS^'^ ); 
ri A ft) n ii ? 

while CHKPlfviseif t f'USSViV; ,THAISyw 1) do 
begin 

HANt)3 7 

(♦ OrHEK Sl‘A rFHFivTfa ♦ 1 

Gf* d * 

ArCKpTC LA.>TSYM )? 

riA.-*h4 

en Q ; 


pros' 7,1 H .»on-ter'«indi ornced'ire witn rlAND procedures inserted 
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procetiure il^bus; 

D&Q 1 n 

HANDXliljUii? 

If CHKSY.MStiTl 1 TrtTSS^*' , TriAl'SYW 1) then 
peg j ti 

riAwni 

(’•'utu OTHFR STATEMEMI'^ »)ND1 

ena? 

mCCFT'I'I AHtiSlfl ); 

HANhl!; 

wMle CHKSlfMSETf t I'HlSSVf' ,THAlSyw 1) do 
begin 

HAND3? 

(♦ ni’HEK Sl’A f^i'lFwTS *) 

ena r 

Af’CFpTC LASTSYK )? 
dAbn4 

en o ? 


proo v,i H .'jon-ter'^inal orocedure witn d&ND procedures inserted 
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OTHERS I BLANK ) ♦ QUOTE I 

others 


LPAPEH>,<M 

SEMICOL>,<^ 


' RPAREN>,<^r' LBRAC>.<'1* RBRAC>. 
, ' COMA>,<*** ARROW> 


. . ARRAYSY>,<^bealn' 

<! const *.CONSTSY>,<'<3o' 


BEGTMSY>,<'case'^ CAfiEBY>. 

DOSY>,<'downto' DOWIiT|OSY>, 

<'eise' ELSESY>.if'endf EHDSY>,<^«Ilf * PILESY>^, / 
<'for' f'ORsy>j<*f unction' FUHCSp#<^t|Ot©* GOt6SY>(i 
TPRVs LABELSY>,C*not» flOTSY>. 


, JUL, 

XESY>.<' label 

OESY>,<'pacKed' PACKEDSY> «^*gr©cedure ' PROCSY 


PR0GRAMSY> 

>C'»'l<CVS . 


< ' 0 £ ' ur o * » 

>.<*PHOGRAM* . 

<» repeat' REPEATSY> 
<'to' TOSY>,<'tYPeI 
<'var' VARsy>,<*wnll 
<'nll' NlLSY>,<'’ln! 
,<'or' ORSy>,<'and' 



ARDSy> 


ODsy^ 


1 — ^ G-OVk $ 


^ PjR^caL. 
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[c+r+1 

CHNSTPEF, constant, WIlMPER,TYPeOECPT,TYPEDEF,TYPEDE*JUTER, 

STMP0ETYPF,FNUMTYPE, irtTVpK, SUBTYPE, TDLESSCaNST,STRUCTTYPE, 
^S?5iny£^ASI^CTYPE,FTEM)I.lSI,VABTANTPT,VARTANT,COWSTLlRT,SETTYPE, 
Q^5?I?StEFTYFE,VARUFCPT,VARDEF,PROCFNDECPT,PROCDEC.F«DEC, 
S2'J£t!l^2i!i^£f’NHEAniNG,FnHMPARLIST,FnRMpAKSpEC, VALVAPFRRSP, 

, CQMPSTMT , ST,vitsF 0 , STMT , ASSPRUST^T , GO mSTMT , STPUCTRTMT , 

iFSTMT,CASE5TMT,CASFBnDY,REPSTMT,WHTl,RSTMT,REPEATSTMT,FnRSTMT, 

REC V ARtlST , expression , SI^^PBEEXP , TERM , FACTOR , 
bE rCDNSTR, ME< viBUESGn,EXPLIST,ACTUAT, PAR A,VAR ACCESS, ACTPART, 1ST 

^^S^HS^/,®£2Pf^^»CASESY,CONSTSYlRET,DPMEQCD) ,Ea(D) ,DQSY, 
2R^«lG‘^iA5kSESY,ENUS¥3,FTLFSY,FORSY,FUNCSY, 

' NQT5Y , OFSy , PACKFDSY , PROCSY , 
i RECORDSY. repea TSY , SETS Y , THENSY , TOSY , TYPESY . 
/ARSY,i»kHIT-ESY,WlTHSY,SXGN(Dl fSEMlCOLCD) ,ASSIGN(D) , 

,RPAREM(n),LBRACCD),R6RAC(n),INTC0NST, 
KEALCnNST,&TRGCnNSX,inENT,NTliSY,CnMA(n),i'WDDOT(nj ,AD 0 npMS( 0 ) ,MUbOP(D), 

INSY , DIVSY , MOnSY , AnRSY , HRSY 


’RPAREN'l 


— ^ iur,N i ' r i 

BbpCK--> LARELDECPT CONSTDECPT TYPEDECPT 
UABELDECPT-->r'LABELSY* 'XnTCONST* {'COM* _ _ 

lSK§l2S2P'’’"*^r20^’§'''SY' CONSTDEF 'SEMTCOO' (CONSTDEF 'SEMTC0L'}5. 
:nfiSTDEF— > 'IDENT^ 'EQ' constant. 


t 

>, 

Pg2g’*“>„P?Of^HEADiNG *SEMICOL* BLOCK 'PERIOD', 

PRpGHEAniNG--> 'PROGRAMSY' . 'IDENT' ['LPAREN' TDLIST 
IPLIST— > 'TDENT V < 'COMA' 'IDENT'l 

VARDECPT PROCFNDECPT STMTPT, 

COMA' 'INTCONST'} 'SEMICnL'3 

,. ™ ^ „ K 0 ^ u s;? A rt A # 

CONSTANT— > ['SIGN'U NRMRER / ' IDENT' )/ 'STRGCQNST' 

NnMBER--> 'INTCONST'/'REALCONST', . ' 

TYPEDECPT— >t TYPESY' TYPEDEF 'SEMiCUt.' { TYPEDEF 'SEMICOL'IJ, 

TYPEDEF--> 'IDENT' * EO ' . TYPEOENOTFR , 

TYPEUENOTER— > SIMPLETYPE / STRUCTTYPF /PTRTYPE, 

STHPLETYPE— > ENUHTYPE / TDTYPE /SUBTYPE, 

ENUMTYPE— > 'T.pAHFir TDLIST 'RPARFN' , 
inTYFE“-> 'TDEHT^ [ 'TwODOT' CONSTANTi , 

S'JBTiPE— > TDT.ESSCONST 'TWQDOT' CONSTANT, 

inLFSSCONST— > 'SIGN ' { ' IDENT ' / NUMBER) /NUMBER/ ' STRGCOAIST ' , 

f2S'/SXn?^'^~">,.CP^CKEDSY') carraytype/rectype/settype/filetype), 

X^PPAYSY' 'LBRAC' SIMPLETYPE «'COMA' SIMPLETYPE) 'RBRAC' 'OFSY' 
RECTYPE— > 'RECORDSY' [FIELDLIST] 'ENDSY' , 

FIELDLIST— > IDLIST 'COLON '^TYPEDENOTERC 'SEMICOL' FIELDLIST jyVARIANTPT, 

VARIANTPT— > CASFSY' 'IDENT' I 'COLON' 'IDENT' 1 'OFSY' VARIANT {'SEMICDL' VARIANT ) 
VARIANT— >CnNS'n.IST 'COLON' 'LPAREN' fFlELOLISTl 'RPAREN' ^ ^ ^ ^ 

CONSTLIST— > CONSTANT i 'COMA' CONSTANT), 

SETTYPE— >'SETSY' 'OFSY' SIMPLETYPE, 

FILETyPE--> ^flLESY' 'OFSY’ SIMPLETYPE, 

PTRTYPE— > 'ARROW' 'IDENT' , 

VARDECPT— > ['VARSY' VAPDEF 'SEMICOL' (VARDEF 'SFMICOL' )3# 

VARDEF— > IDLIST 'COLON' TYPEDENOTER, 

PPOCFNDECPT"-'> IPPQCDFC/FNDEC) # 

~ ™ - A f' 4,/ r" lii r*' W 4L S3 A' J) # 

FNHFADING— > 'FONCSY' 'IDENT* [FORMPARLISTJ . ’COLON IDENT ' 

FORMPARLIST— > 'LPAREN' FORMPARSPEC {'SEMICOL' FORMPARSPECJ 


TYPEDENOTER 



$ 


RPHRlf 
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STMTPT— > CCIHPSTJ^ITT 

'beRinsy' stmtseu ^RNnsY', 
STMTSEO— > stmt {'SEMTCOL' stmt> 
stmt— > t'lMTCONST' *COT,ON' J [A^ 
ASSPROSTHT«--> 'TDEWT^’ P VARACCESS 
GQTPSTMT— > 'GOTUSY' /irrCOMST' 


EXPLIST »rrra: 


T> , 

[ASSPRUvSTM f/GnTOSTMT/STRUCXSTMT] , 

ESS 'ASSIGN' EXPRESSION /ACTPARLI5T1 


* >. U1IUI-* o ' in ' 1 i3piniL."u V, uivo i ij • D J ^COLON' STMTV« 

WHTLRSTMT/PRPEATSTMT/FORSTMr. io. 

WHiLESX' EXPRESSION 'DOSY* SfMT, 

Irnu«TMr^''‘3"T^n fT^TSEO 'UNTIESY' EXPRESSION , 

''’•“■■'fV'DOWNMSV) EXPRKISSWN 'OOSX’ 

^ r^9 < relopmeo ' / ' twsx ' j stmpleexpi , 

r'SlGN'J TERM {( 'AunOPMS'/'SIGN'} TERM), 
fRRM--> I- ACTUR < C 'niVSy'/'MUnsYV'MULQP'/'ORSY'/'ANllSY' ) FA'’TGR \ 

rACTDR..> ,IjJ|l]j;!,p?ACCRSS/ACTppLjsn/ -LPAM^ expression' 'RPAR bV»CiTSY' FACTOR 
EXPftEisiON'^'['’“f®aonT''^EXPREsilC1«''j'/'*’^ ’RBRAC* , 

ACTPABl,IST-->'l.PAPE»' ACTIIAt.PARA { -COMA' ACIIIAOPARA t 'RPAREN' 

> 0 PROG) 





U- 


STMT, 



1 


»snt\ *sP-\ 

PROaRA'^ [-eXpAH(lMpnT,aUi’PUTj f 
const 

pup'fi.gth = ru? 

MHXtRhlHLXne K 10; bRRTOtiGTH = 10; 
ALFAf.FOGTH= 111 
fji'.ThSi 33 ; 

l.hXG*l'i'<OM= ly; GlTMAjts 17 ; 

TK.\'«iflA= 14? 

Mjp^s 42? 

Nu’^' I'Ki'. A’lTrtwir 2; 
in; 

t yoe 

AuPnAsnacKed array Li , . AUf'ALFNGroj of char? 


Si 


ILLEGAL . AA'JSy . OKSIC 


, wxTtisy 
, SGTSY 
, NUTSY 
, FnDSY 
, ARRAYSY 
, RPARfJR 
, AUDOPMS 
, HFALCONST 


, wHILKSY 

, rfpfatgy 

, LAriPOSY 
, KhSFSY 
, ARROW 
, hPAREM 
, SIGN 
, XNXCONST 


, VaRSY 
, RECORUSY 
, TFSY 
, DOWNTUSY 
COMA 

, OTHEROPS 
, Twooni 
, IDENT 


MOORY , niVSY 

, JOriLSY ^ TYPESY 

, PPQGRAMSY , PRHCSY 

, GOrosY , FU^JCSY 

, DOSY , .CUNSTSY 

, SEMTCOL , RbRAC 

, STRGCOi^Sr , EQ 

, PERIOD , COLON 


INSY 

f 

f 

t 

f 

# 

f 

r 


TOSY 

PACKEDSY 

FORSY 

CASESY 

LBRAC. 

MULOP. 

RELOPMES 


NILSY 
, THENSY 


t 

I 

t 


OFSY 

FILESY 


BEGINSY 


, ASSIGN 


, EOS 1 ? 

SETOFSYS ® set Of SY? 

ERRinauFF = Paciced array 1 1 , , ERRTur.GTiil of char; 

ERRTYPE s ( IwSERfIQi'l,Rt;PijACEMENt,LEXiCAL,GLjaBAL,,SINGLEGLOBal#SKIPGLOBAU); 
F.RRELMTTYpesrecord 

EW RMGG index : U, .MAXERR iWLIne? 
case ERRCr-ASS; ekrxype of 

INSERII on; C lNSERTSYHtSY) ? 

REPLACEHENt ; C REPS Y Mi, REPS YM2SSY) ? 

LEXICAL; fERRNu? integer) ; 

global: CEKRSYNSET jSSrOESYSlNTNAMEjERRlDBUFF) ? 
SlNGLEGLOtsaiJCERRSYMsSY) 

EKRRECDlYpesarray 10. .MAXERRlNLlneJ of ERRELMTXYpe? 
symbolso., 57; 

TaKENS=U.,TKNHAX? 

LiTERALSs-.l.,LI'rMAX; 

NUMSTlEX»U.,LEXSTNUM? 

A = l,.NUMTKNi(<IlHwl; 

CURn^LXYPEstrecord 

■l‘UKJ lOKEi^iS; STAR!'. SIZE; Integer 

end ? 

RESWDSsl, .NURw? 

KGS'l'YpEsrecora 

STRINGsALPHA; LEXVALjSYMBOL 

end? 


var 
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J.K ; Inteaer; 

SKIPanteuer? 

filTjBrrav Lcnar 1 ot ltxf.rruS; 

IDIAI.PHA? 

Curv^fiSarraVlAJ of CURWL1'¥PF.; 

HARwbj arrav ITOKEN53 of oooieanJ 
KtlY^UHnsPAceJarray iKFSwuSj 'of Kw'^rvpF; 

;arraVL-i., I'/j of boolean; 

S^PuS;arrdVLf».. 571 of SY : 

PKFvSYM,Kt;;XfSjt:M.f;y ? 

Ch : coar? 

rijiintPuerr rYpFDF i erm : infeaer ? 

FKRt'PFFi:;P;arrdVt^» . 1 1 of array f u PUPfr.GTHl of char; 
HjFFKH;ariay fu. , 1 j Of array LO, ,6”t'FLr;rHj of mar? 
r ^ALf , TonLr!p,SFGTH,BUFFXNLlFA,.>tFXTBliFFIMciex?lntPqer? 

R 7 A i, " ; r e a i ? 

Si[‘'';SY;iniMAMF?DacKPd array of coar ? 

liLiVALUP:}arraVLy,.iJ of U.,8UFn.GTH? 
lUfiGTHSU, ,11? 

CC,LrvNeXTI.L;U. .HUFfl.GTH? 

PRFvPuSiTion!arraylo,.i J of n, . ariFFLGTH? 
r .KHRLP,LP,HP,PRFVLp,pMt;VKP,A'EXirjP,i\iFXTKP; Intener? 
FiPST;booiean; 

RECUVERY: (l.UCAL.MUNL.nCAG^wnpREVA'rTMpt ) ? 

ArTMPlRECV,GA£iTeRKGXVen,B)4ARKLINF,r.ASTLINa':b00lean? 

PKncFHRCOKsorso.,2? 

KRRKECD;arrav[.o..iJ of ERRRt'CuTYPe? 

UNENos integer ? 

pREVvSLT;arrav fsYj of sefofsys? 

SYMHAMEjarraV[0.,71J of EkRIDoUfF; 

SYWGG'i'H:arravci>,.7i J of inteoer; 

EKRVALU:! ,,5? 

LiNEsarrayli.,li3J of cnar? 

RjnFWAPNiSlas, NUOFERRS! integer? 

FRRpRESENT;arrayCo.,iJ of boolean? 

EKRIMLiTi»E;arravIo..l J of o, .MAXERRIwI lne? 
function ELMTCSsRETDFSYS) sSY? 
extern? 

function CARncs:RETQFSYSi ? integer ; 
extern? 

proceanre error (FrreIjWT; errelktty pe ) ? 
var 

P0SXTXnN?U,.BUFF0GTH?XFRRIM0lNF;0, ,MAXERRXMLiIne| ' 
begin 

Witri ERREb’*'! do 
begin 

If EPRCbASSfSKTPGliOBALi then 
beam 

if ERRCbASSsLEXICAL tnen POSTTTONjsCC 
else POStTIDNjsLP? 

eRPBUFFERCBUFFTNnfcxj EPOSIXION J I = ? 

XERRlNbXMeiaFRRIfJLTNFtBUFFIllOEXJ ? 

If XERKXRbTNECf^AXERRTNliIne then 
beam XERRTNbXMESsXERRINtilSEfl? 

If XERRiRblriEKMAXERRlNblne then 
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beoin o’Kf-'HFCniBUFFTNDEKJ DiFRRINLINFJ .ERRCljASS;=:LEXlCAlif 
KK^HFCblBuFFINDEXJ CXFKRINUTNEJ ,EPRMa!=26 
ea^ 
else 
heciin 

U XFhPlMUlNFsl then ERRs«Sr,IWDEx :=0 
ei‘?e fcPHM^GlNDEXfs: 

FRRRECOtBUFriNnEX] [ XERRiNUT ftiF- 1 J , ERRMSGINDFx ? 
FkRi'1SgTnDEXJ=ERRMSG1NDFX + 1J 
FRRRFCDIRUFFTNOEXJ rXFHRiPJLINFJ :sKRRELMT 

FRFvP'isiTionruriFFiNDEXl :=pnsirTaM; 

n * 

KKRiNuJlWFlRJFFTNnFXJ SsXERRINhiME? 

enH; 

If Cf EKKnuASS=r,.eYirAl,j and CERRRn)f25)) or ( ERRCLASS in tlNSERTlON,REPLACEME.Nt3 J than 
(vUnFWAHi-^T.^lns ! =:^^O^FWARNTi^i'5S + l 
else ..auFERRSs=NnaFERRR + i 

enn,* 

KkRPRERE1\’1'[oUFFIMUEx1 

enn? 

procedure EKROHMFSSAne(EHHKLMiiERRFL*<rTiPe); 
var 


SsSE'''uF£>YS!!EJ i>Y; 
beqin 

with ERKFLiHI do 
beoln 

case EKRCbASS of 

lNSERriO«{'A'Rn'FL^HTXY.SYM(JAMEtnRDtTNSERrSYM)] TO BE INSERTED'); 
REPLACE, nENtjvJRTlELfnTl’Y.RVMNRMELOkOCRBPSYMl)) ,'10 BE REPLACED BY ' 
Si'iGI,iEGL(JBai:wRITELHCITY,SYMNAMECQRDCERRSYM)) EXPECTED ') ? 

GbflBAu; 


SYMNAMEiORDC REPSYM2)1); 
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T : tnteaer ; 

inteyer ? 

beoin 

If PR JCt;oKCuRsor<2 tnen PRnc<^RRCnRsor{ sPRUCERRCURsor + 1 
eise 

If ERRPHESEijrtBUP’PTdnexj then 

beam ^RrrELNCTrX,' 'mUPFERrBnFPINDEXI mLVAt.UEtBUFFINDEXn? 
v^dlirGL.'^CTrX, ' — >'',FRRByFFERLBUFFTNDexj : Lil. 1/ ALOE f SUFFINDEX3 ) t 
for rj*! to r.uVAT.UECBUFFTNnEXJ rio ERRBJPFER [SUFFINDEx] [IJ ' 
XERKmLiNErsERRiyLTREtBUFFTNDEXJ ? 

If XERHiyuTRE>f) thPn 

for Ti = l to XERKTNf^IWE do 

Vitn tRHRECD[BaFFiNDEX3 CT] do 

beam •«?RtTEt rrv, ' ',ERR«iS3TNDEx;l. 

FKRORMESSAaeCEPKRECOCBUFFINDEXl Cl] ),* 

end; 

ERRiMl4rNEmgFFTijnfc.X] J=0;ERRpRESENrrBtIFFIMDFXl mfalSe; 
PRKVOQSITlnn rdRFFmutPXl mO 

end ; 

end; 

procedure riEXERRORCwjmteyer ) ; 
var 

Xj ERRfiL.n'rrYpe; 

beam X.ERHCL.A5S:=LEXTCAL,; X.ERRNOmN; ERROR tx) 
end ; 

Procedure errursE'KSssetofsxs? AmRRmsUFF) » 
var 

XiERRELJ^Trxpe; 
beam X.ERKCi.AaS!=St40aAti; 

X.ERRSYdSETmS; 

X.Nl’WAMEJaA; 

ERRORCXJ 

^ cf * 

procedure' FRRORSYrtCE:SX) ; 
var 

Xj EKREf.HTrYpe? 

beam X.ERftrOASSssSINGOFGLOBal; 

X,CRRSYm:s:E; 

ERRORCX) 

end; 

Procedure SKIPERROR; 
var 

XjERRELMTTYpe; 

beam X,ERRrLASSmSKIPGt.OPAr.; 

ERRORCXJ 

end ; 

Procedure LOCALEPROR(£JSY;ERRCLASSTYDeJERRTYPE) ; 
var 

XsERRELMTTYpe; 

beam X.ERRCCiASSisERRCOASSlYpe; 

If X.ERRCLASSsREPOACFMENt then 

beoin x,REPSYMlj*E;x,REPSXM2*sPREVsyM 
end 

else X.INSERTSYHSsE; 

ERRORCXJ 

end; 
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orcjceanre LEXAnt var SYMwAmssV J ? 
forward? 

oroceanre f.fexANAtiXSEy 

Procedure RESin«ENg’Xtsymf , „ « . 

beam SY 'i:=NEXrSyM; [,p!=MEXTr,pfRP;aNEXTKP;nUFFXNDEX:=MEXTBnFFlNdex?LljS=l'IEXTLi:),* 
end? 

beam 

If ATrWFTRKCV men 
beafn 

PESlTIREREXtsyrnf ATI MpTkFCV ratal se 

end 

else 

beam 

t.f:=cc; 

LEXAd (SyM ; ! 

Re!=cc-n I 

end; 

If k6:CnvFRY = bOCAL tnen RFCnvFHYm MQMLiDCAL 
else KEcnvEKY mkOPKEVATiMpt; 
tf SYM » TiibEGAt. tnen 

beam Lg:XEKR0R(i41 ;r*EXAi'’ArjYKE 
end; 

HUANKuTREmtaise 

end? 

orocedure tests Y vSl ACCSYS, STOPSYS : SF mFP YS ) ; 
var 

PREVLP,PREVRP,PREV8UFFlNdex,PHFVI,L! integer? 
sssetufsys? 

TOTSYStSFTOFSYS; 
orocedure PkFSERVgsym; 

beam PREvSYMrrsYMf PREVLP: = UP?PREVRP:=:PP?PREVBffFriMdex;sBUFFINDEX;PREVLLJsLL 
end; 

orocedure resi’Dresy-i? 

beam SYd:spHevsyM;bPmPREVbP;RPs=PRFVRP?6'IFFINDEX;sPREYBuFFINdex;LL?=PRFVLt 
end; 

orocedure PHESERVEWExtsym; 

beain KEXTSYM;»SYM?WEXTbP?=bP; WEXTRP;=Rp;NEXTBUFFINdex;=BUFFINDEX?NeXTLbtsLb 
end? 

Drocedure sktpsys? 
begin 

If not CSYM in fOrSYSj then 
begin SKiPERROR? 

While not CSYm in tutsys) do 
begin 

If ERRBUFFERCBUFFIMDEXI ttipla' ' then ERRBurrERCeUFFINDEXl II-lJ ? = *♦'? 

for r; = bp+l to RP do ERR8UFFER CRUFFINDEXJ cm**'’**'? 

bEXANAbYSE 

end? 

end? 

t#BRRDR MESSAGE*) 

end I 

beam C*T£SISYSf) 

ACCSYS: = ACCSYS + £SbSESY3 ? 

If tnot (SYM m ACC5YS)) then 
begin 
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TQT3VS:sACC3irS<-i5TJP3Yi3: 

If CR?:cnv'5«Y<> 'jn jrjOCAT.) and (not. AiTMorPEnif) tnen 
baain 

S;3ACCS5fS*PKP;(/SETtS^MJ ; 

If l:RRD(S)<=i tnen 
begin 

If CCAPDfs>=1j tnen 
beam 

neoin PRESCRVEMEXtsymj fi rTMOfRECV : ^truejSYMSsEUMTCS) ; 

, REruVeRlf ;stjOCATi; LQCAtiERRnR (SYM , INSF.KTIOW) ; 

<»nd 


end 

else 


end 

else SKiPSYSf 

end 

else SKIPSYS? 

end ; 

end? 

procedure ACCeptcaCCSYM jsy) ? 
beain 

it SYdKAf’CSY^ tnen UExa^flUYSP 
else ERRORRif'l ( accsyj!) ! 

end! 

function CHKSYMSFixcssaEfOFSYS) jDOolean? 
begin CHKSYmSET z^sym in s 
«» nrt; 


If (not (5YM in rinxSYS))) then 

heain 

PRRSER'fERYm/LfclXA'^AhYSE? ATfMpTRPlcVzstrue? 

Jt C f S ) SS! I ) 
tnen 

begin sy«!=Ei.MTts) • 

REPO'^ERK :al.0CAL?LJCALERRnH(3YM,REPl.ACEMEMt)? 
end ' 

eise SKIPSYS? 

end? 


broce 


dure li'^ltSYMisAdes 
begin 


SYHMAMEtOJ !s 

sy 

“(«A«FC 

IJ 

St 

drtAMEt 

21 

St 


3J 

SYMwAMEt 

4j 

St 

MNAME£ 

51 

St 

m«\Ame r 

6J 

SYMPiAMKC 

71 

St 

M?<AdEt 

R1 

sy 

MftlAMPt 

9J 

St 

M.^AME £ 

iO) 

St 

MWAMEt 

ill 

SY 

bN AME L 

121 

St 

hf,AdE( 

133 


'LhUE'^hu 

Sa'AHOSY 

:s'0Rsy 

Ss'AUDSY 

Xs'DIVSX 

is'INSY 

Sa'NXt4SY 

Js'eltHSY 

I»>«IUESY 

l»eyARSY 

Is^UNriliSY 

Js'IYFESY 

Jat'rOSY 

:»*rHENSt 






SSfMrtAiiKi: l4j: = 'sKi\Si '? 

SJCMNAf^Kt Js'kKPKATSY 'f 

SY»i^AHF.[ Ibi Sa'RECnKnay 'J 
SifMNAMEC i7j Jb'PROGRAhSY '? 
SjfMiVAMFl iHjSsVHQCSY ‘ 'i 
SY“NAmFL Js'PACKt-'^SY ' ? 

SY'^ifiiAi^KC '^OjJs'jFSY 
SkM.^AKKt j Js'i'iUrSi 
SY'-'u^Ai-^FC 22j Sa'^tiABELPY " i 
SYM.,Ai^EL 2 ^]: = 'J.FSY 
SY' 1 ivA,nRC 24 j:s'GniDSY 't 
■=!Y-'»iMAviFt 2*^] Js'F'IMCSY *■ f 

S]t«,yiflviFL 26j:3'r’aK5Y 'r 

SYVrtA^Ft ^nts'PluFSY 'f 

Si'-^i.Ai-iKi, iiRj * s'dMUSY 'r 

SifM,,A^FL : = '£LiSESY '? 

SF«hA,-IFi. 30 J jB'UOw’^TnSY 'J 
■SYMr.AMKf jij:B''u.osy 'j 

SY«<wAMRl J?J fs'CHf^SrSY 'f 

SYMrtAMFt iJjJs'CASeaY 'J 

'^YMnA^FI 3Aj Ss'BEGINSY 's 
SYM i,AMF[ i5J Js'AKtiAYSY ' r 
SYMNA;4Et 3b J J = ' AHftUtii '? 

SYMwA.V|F[ 37j»s'-CrMA ' . 

SYMwArtFl 38J {s'^SKMICOL 
SYMNArtFC 3‘il rss'KRHAC ' t 
SYMmAMFL 40JJs'LBt<AC 
SYMNAmKI ^tJts'KPAKtN 'f 

SYM^AHKi; 42j :s;‘’L.PAK£N 
SYMnAmEC 43J Ss'UTHEROPS 
SYMNAmFC 44J Js'STRGCnNSr 
RYRNAMFt 45J: = ''EQ ' f 

SYMNAHEE 46J : = ''.MIibOP 'j 

SY»1i^AME[ 47j : = 'AD00PMS 'T 
SYRNAnF.t 48j:a''SlGN 't 

SYRhAMEI: 493S = 'TW0DaT 
SYMMAHE[ SOJSa'PERlOn ' » 
SYMNArtEt 513J = '’CDLPH 'j 

SYMrtAHEi; 52J ! = 'REGOpMEO '? 
SYMfMMEC bIJ Ss'ASSlGNl ' ? 
SYMNAMEC 54j :=:*'REAbCONSr 'f 
SYM6iA«Et 55J Ss'lNTCUNST 'f 
SYMRAHEt SejSs'lDENX 'J 
SYMNAMEC 573:a'eOS 'i 

end? 

procedure lexan? 

1 abel 

0 ^ If 2, if 4|. 5, f f 7 f 8 f 

var 

LSIZE: integer? 

FiNALORDVAlsTOKENSI 

LiTNUMBERjLITERALS? 

LEXzSYMttnu? 


procedure siDREC Uinteger)? 
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9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, lOOf 
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beam 

bEXsriiE : 
P'iNAl.yWUVAl 

enb; 


liStZF 

-I 


pr acedure PiKUP; 

^^'’^syMmEnsmPmLt.iJAbtiEtbnt-FiMDRXi ;r,P!=Fprgoto lOO 

pri<i f 

r«rnceriiJie wKTLrffvar Ul r'‘lU« ! LiTtRALS) ; 
var 

f’riicbar; 
heain 

If CC=bL then 

!f fc.i3F{ iNPUr) t-nen 

heain 

LiTNUMIs -1 ; 

If not CbASTFHRGTVen) then 

PKDCESSERHor f t AUFf TiMhEX + 1) 'flOd ^ )f 

t.ASCFKRGT venmt.rue? 

K fEUF 

end 
eise 
beam 

^^beain^BuFFTNDlxm^KpFINUEX + 1) mod 2 f 
PKnCRSSERfior CBUFFIMDEX^ J 

end; 

8LAftjKLiINF:=true? 

RfiADfCHm 

ccmt ; BUFFER CBUFFINDEXl lU !*CH? 
ULml-blNECLMmCHtblNENDmUpENO 

If c not FTRST ) then hlTNffMSsO 
else 
heqin 

While EQLN(lHPiJI) do 
begin READI/NlWRITELN 

tf^enf (INPUT) then liinums* 
else 
h 6 Q jL n 

while notCEObNCiNpUT)) and (LLi<132) do 
begin 

SUFFER clJrriS^ixi Itui 

LINErULi mCH 
LlTNuJlsblTtLlNECll] 

end 

end; 

If EOiiNClNPUT) then 
begin 


+ U 


•1 




end; 


L L S Lt 4 ' 1 J 

eUFfEKCBUFFlNDEX) Ctljl t*"’ *'1 LINE CI*Ul ' ? 
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KiiAULNJ 

UbVAl.UFLRUPt- TNOelXj Z-hl 

end 

else 

beam 

C'T^sjr'r'+i • 

LlTNa,v|I=LITLr,{NErcrj 1 ; 

end; 

t.STZK;=usiKe+i; 

KIRSTjafalSe? 

end ; 

beiin 

P'i'^AbURuVft) !=U? 

’’eneat 

FlRST;=true; 

I b rz^jssu; 

NXTutrrLii'fia^bFR); 

'’nt.il not t'ELiMSFrUi'.lT.N'n^iRERj ; 

f.hXdn’N I src ; 

If i.ii’wuMBFR=-i then 

beqin l-EX;* 57? S^m^AM : =S^PQR tl.EX} ; r,STZE;=0 
end 
else 
beam 

goto 2Qf 
i ^ 

WXTLirCkirNUMtJER); 

2US 


tf 

LTINUMBERs 

2 

tnen 

goto 

7 

9 

f 

It 

LlI'fJUMBER* 

3 

tnen 

goto 

2 

f 

if 

LIfMU“BErts 

4 

t nen 

goto 

2 

? 

If 

LJXl^UWBCRs 

5 

tnen 

goto 

3 

; 

tf 

LTINUEBEH* 

6 

tnen 

goto 

6 

f 

If 

iilXNU’*BS8» 

7 

tnen 

goto 

8 

f 

I f 

LITNu'^OERs 

8 

tnen 

goto 

10 

f 

if 

LIlA*UWdeR» 

9 

tnen 

goto 

it 

t 

if 

litnumbers 

to 

tnen 

goto 

13 

t 

If 

LITNU^BERa 

U 

tnen 

goto 

12 

f 

If 

LiT^y»<aeR» 

12 

tnen 

goto 

14 

t 

if 

litnumber* 

t J 

tnen 

goto 

15 

9 

f 

if 

yiTNU«BEK» 

14 

tnen 

goto 

17 

f 

tf 

LITNUMBERa 

15 

tnen 

goto 

18 

; 

If tilTNUMaERs 
goto Of 

16 

tnen 

goto 

19 

1 


2t 

STORE C lit 
MXTLITCLITNU^’BER); 


if 

yiTNUMBERs 

2 

tnen 

goto 

2 

f 

If 

LIINUWBERa 

3 

tnen 

goto 

2 

? 

If 

LITNUMBERs 

i 

tnen 

goto 

2 

t 

If LIXNUMBERs 
goto 0? 

5 

tnen 

goto 

2 

1 


3} 

SXOKEC 2J? 
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NXTOTl'f LXINUMBER) ; 

If lI 1 'NuwbKR= 4 tnen goto 4 ? 

If lH’NUMoeks 5 tnen goto ? ? 

If LiliNUMtsEK® D tnen goto 4 ? 

noto u; 

4: 

NXTLrrCUIINUMBFR); 

If UlTNgWBER* 5 tnen goto '5 ? 

if UJINUMBERs U tnen goto 4 ,• 

noto u; 

R: 

STHRP't 

r'XTblfCuirNUWBRR); 

If uIIMumbers u ttien goto 5 t 

goto 0 ? 

f>; 

Sthrkc 7)? 

NXTLTXruTi’NUWBERl; 

if LTr»UM8ER* o tnen goto 7 ? 

croto 0 ? 

7* 

RtOREC 8)f 
NXTLirCOlI^fUWBEK); 
goto 0? 

8: 

NXTLTTtLTTNUWaERl? 

If LtlTNijMBERs 1 then goto 8 ; 

if LlINUMdERe 2 tnen goto 8 ? 

If lxinjmbers i tnen goto 8 ; 

If iilI^iuMBERs 4 tnen goto 8 t 

if LiI'*iUM3EK= 5 tnen goto 8 j 

If BIIWUMbeRk 6 tnen goto 8 t 

If LifNuMBERs: 7 tnen goto 9 ? 

if LTINUMBERS 8 tnen goto 8 ? 

If LIINUMbers 9 tnen goto 8 ; 

if ljITNU«8ER= to tnen goto 8 f 

If LITNumber® U tnen goto 8 j 

if LIl'NUMSER* 12 tnen goto 8 i 

If L-IINUMBER* U tnen goto 8 ? 

if tilTNoMBERs 14 tnen goto 8 » 

if LIXNU«BER* 15 tnen goto 8 y 

it LirNuMBER* 16 tnen goto 8 j 

if LlTNUMBERe 17 tnen goto 8 ? 

Ooto Of 

^ • 

STOREC 13)? 

WXTLXTCBIINUMBEH); 

if BIXMUf«BERs 7 tnen goto 8 t 

goto 0? 



u 


ly I 

si-nkEt 12 j; 

NX't’Ll l’CLll’NUMtJFR) ; 

ooto 0? 

1 Ji * 

SinHKC 5)? 

NXTLIlHLirNUMaEHJ? 

If Ll'rrJUMBERs 8 then goto 12 f 
If LlXNu’^BEH*: lu tnon goto 12 t 
goto u; 

1 2 I 

PTHREC b)t 
"'XTbTKUirNU'^BEk) ; 
goto y; 

1 B ! 

SinRFt 5); 

NX^tTfCLIlNUMBERI; 

If uilNUHbERa 8 then goto 12 ; 
goto 0? 

14! 

STOKRC 

t'XTLTrtyli'NUMaEHl; 
goto o; 

15 5 

stoke c b)t 

MXTbIT(L.IINy«BEK); 

If yrfNUMBEKs: 8 then goto 16 ? 
goto u? 

16! 

STORE ( 4); 

K'XTLITCLrTINUMBER)? 

goto 0! 

1 ?! 

STOKE C 10); 

WXTtlrtyilNUMBER); 
goto u; 

lb* 

STOKE ( 11)? 

«XTLIT(tirNUMSER); 
goto 0? 

19! 

STORE! 14)? 

NXTLIItblTNUMBER)? 
goto 0? 


0! 

r,EX!*FlKAliOROVAl? 
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en<i 
else 
end ? 
lun* 

end; 

( ♦PriOCf*:iJUHK NXTSYM*) 


rymnamjksxpusii.exj ; 

If FTf,AbnHnvAi«o then 

heam CC!=I.fc;XddN+bFXSXZE-if , , 

for T;=:l to AuP’ALEMGTH do TDrns = ' '? 
for T:s r.tXbG'i to Cc do 
hegm 

Jjsl-LiRxPGN + l ; 

It J< = AbP'ALEdGTH then TD CJl : = L.TNF tu 

end; 

'If riAS«brFT,'!AbORDVAn then 

= wnlle CurwT. CTJ ,TnK#LFX do T; = l + l? 

If C’lRHb ril .SIZE 4 U then 
henin 

With CHWiiTlI do 
beoin 

djsSTARr? K:=:STARr + STZF:-1 

end; 

reneat l;=CJ+K)dlv 2? 

with KRYWDRDSpAcetTJ do 

heoin , . , 

if in<ssTKiNG then K:=I-l; 
if 1D>=STR1NG then J.'SX + I 

end 

if J- 1 >K ben [.EXssKEfWDROSPAceCU .liRXVAI. 

end 

end ; 

SXMWAMS-SfPOSCr.EXJ 


I.EXSIZE:=bSlZE 


procedure tdXTSfPOS? 
beqin 

SXP0SC57J jaeosi 
SXPU5t56] :eANOSX ; 

SXPOStSSl JSQRSY ? 

SXP0St541 SaMODSX ; 

SXPOStSdl S»DI^SX ; 

SYPUSt52] I=1NSY ; 

SYPOStSl 1 t*NIL5f 7 

SYPOSC50J J = *(irHSY ; 

SYPostAy] ;=«HiLEsy ? 

SYPUStAB) :*VARSY 7 

SYPUSi471 jaUNlIbSX 7 

SYP0St46) jarYPESY 7 

SYPti5C4S3 :aiOSY 7 

SYPUSt44] ;®XHeNSY 7 

SYP0St4iJ :aSErSX 7 

SYPUSt423 :sREPEATSX 7 

SYPOSL413 :»RECaRUSX 7 
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SYP0S140] !=:pPUGf<AMSlf ? 

SiPaSL 391 JspRJCSY ? 

SiPbSLiW) ;s:pACKt;OSy J 

SiPusL37J :=OFsy t 

sypostibi :=Norsy ? 

sypasi35] jsuAbEL/Sy i 

$yPuSl34J SalF'SY ; 

4ypast331 !=GrjtfiSY 
??ypost32] ssfurtcsy 
’sypusLii j s=FOKsy ; 

4iPuSl50] SsFTbKSY f 

syposL? 9 ] != 6 ;Nosy ? 

SyPuStZdJ :=tbaF3Y 
sypust'^7] ;=5Dn«Ninsy r 

syposixtji I=Q03Y f 

sypusL 75 ] :=:CO,^srsy ? 

.SyPuSL24J !=CA3KSY 
sypDSi23] :s5bEGt«sy 
sypusi 22 i ;«APKOYsy r 

sypasi 2 il :aAK(<Ort t 

sypusi: 2 u 1 S»Cl>4A 
SYPOSCiyi i*s‘!:!-iTcnL ? 

syPusLiBl jskhkac 
S yPOStl?! IsbBdAC 

SYP05tl63 SaRPAHEN 
SYPOS1153 x=LiPAPeB f 

SYPOSll 4naUTHERDPS J 

SyPQSLUl :xSTR6CUNSl' f 

SyPDSL121 jaEU ; 

SyPuSLlll :aMUbPP t 

pyPDSllOl jaAUbOpMS f 

sypusi yjsasici"' 

syPosL «i;a'ri«unur ? 

■ syPusi 71 ixpfcrtiuo ; 

sypust 6J:aCULUN 

syposi sijaRKLnpwEa ? 

SYPuSl 43saASSlGN ; 

SYPUSt 31 jaREALCONSr J 

SyPUSt 2J jaiBlTONSr 
SyPUSt iJSaiUENi’ 7 

SYPOStyiJsTL.l.eGAD7 

n cl * 

orocedure^ •^akereauy; 
beam 

With COR^LC U do 

beam 

TOKja 147 Sl’AKTjs 

end; 

Witn CtfRWtiC 23 tSo 
begin 

TOKia 17 SXAKT;= 

end; 


17 size;® 7 

BJ SiZEsa 35 


end 



] 4 


proceaure INITIAI-Ist; 
benin 

MAKfcPtftijY; 
l/XTt' 'Jj = 
MTt'lf'J *.= 
r.XTr^'j j- 
LlTt V' j : = 
MTI' 4 'j : = 
r.xrry'j : = 
r-iTr>'j : = 
r-jrrc'j ss 
! = 
j IS 

farC'K'j 
raTL'w'j : = 

IS 

r^XTL'a'j :a 
f-iTl't'j ! = 
biTl'K'J IB 
MTl'p'] IS 

MTru'J !* 

I.iTE'g'J IS 


liJx r 

Lilif 

Lite 

uirr 

Lire 
ii I X E 
Lixr 
lilXC 

Lirr 

UilC 

LHC 

LITE 

Lixr 

uxrr 

LHt 
LITE 
Lire 
LIXE 
Lli E 


' I ^ ^ 

*+'i 

'on 

's'l 

'S'l 

'■9 f j 

'P') 

'T'l 

'sn 

'X'l 

'b'] 
'o'l 
'I'l 
'a'} ; 
'v'l ; 
'i'Ji 


Lire'"'} i. 
hirc""l 

E-lTtS'j I 
LlTt' 1 ' 3 ! 

E.lTL'b'3 I 

urc'i H ; 
LITE'#'] : 
LiTt'EH S 
taTE'J'3 I 
l.iTE'0'3 I 
LXTE'X'J I 
LXTrX'J t 
: 

llTf'c'i S 
E.ITC'n'J ! 

E.iTE'ffi'] • 

LiTE'rH ; 
tiiTE'w'j ; 
LITE'l'J ! 


Witn KEywuFDSPAcec IJ do 

b#q in 

LFXVALjs 17 

witn Kfifi^aPt/SPAceL 23 do 

bediP 

'f LFXVALjs 18 

wltn KFifi^OPUSPAcei 33 do 
beoin 

LEXVALs* 21 

wltn KEJfWOROSPAceE 4J do 
beoin 

SiRINGis'C bFXVAEils 15 

end; 

wltn KElfwORDSpftceE 51 do 
begin 

string:*') gEXVALj* 16 

end; 

wltn KEIWORUSPAcel 61 do 
begin 

STRINGS*', LEXVALl* 20 

end; 

Wltn KEYwoROSPAcec 71 do 
beam 
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string: s'; lp'XVai.:* 19 

Rnfi ; 

witn iIEYWJHDSfc>Ace[ 8J JO 
beqin 

STRiNG: = 'PKjyRA,^ lP'XVaL:* 4U 

enq; 

With KRXWuHDSPAcei qj ao 

nenin 

siPXMGSs'ana uEXVAn;® 56 

end; 

Mitn KExwuHUSfAceL lOl do 
b6^ in 

STRING;=s'array uEXVALs= 22 

enb; 

witn KEy'^jjRuspAce L iij jn 
bedln 

STRlNGrs'oegln gEXVALss 23 

end; 

with KF^fwa»?USPAceE 12 J do 
benln 

STRINGJs'case L.EXVAG:* 24 

end; 

with KElXWQRDSPAce[ 13] do 
begin 

SrRlNG:='const LEXVALja 25 

end; 

With KEYWORDSpAceE 14J do 
beam 

STRlNG: = ’’dii V LEXVAh:* 53 

end; 

with KEYWORDSPAcet 15] do 
beam 

Si'RINGSa'dO LEXVALm 26 

end; 

With KFYWaROSPACPE 16] do 
begin 

STRXNGJa'dOwntO LEXVALsa 27 

end; 

Wltn KEYWURDSPAceE 17] do 
beain 

SXRiNGm'else LEXVACiia 28 

end ; 

With KFYWUROSPAceE 18] do 
beam 

STRINGJB'end LEXVAt»;» 29 
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end; 

witn KKk'WURuspftce i iRj uo 
becjin 

SfFjLNG: = 'tlie uFxvaL;= 

end; 


Witn KF^WURUSPAcet 20J do 
benin 

LFA’/At.;:: 

end; 

witn KFi-wuRuspAce t 2tj jo 
beoin 

Si'WiNGis'tunction uF.^Mkhz- 32 

end; 


Wltn KFfWURDSPAce L 22J 
beam 

SlHlMGSa'gotn 

end; 

With KFYWUPDSPAceL 23J 

beam 

RTPlNGSs'if 

end; 

With KFYWORDvSPAcel 24J 
begin 

SrRiNGSs'’ln 

end; 

witn KFYWDRD&PAcet 25J 
begin 

STRiMGis'xabei 

end; 

witn KKYWUHDSPAcel 26J 
begin 

STRXNGis'nioa 

end ; 

With KFYWURDSPAcel 27] 
begin 

srRiNGxs'nil 

end; 

wltn KEYWORDSPAcet 28] 
begin 

SXRINGss-not 

end ; 

witn KEYWOROSPAcel 2RJ 
begin 

SXRlNG!='of 

end; 


do 

• lfxvaG;= 33 
do 

bEXVAI/j= 34 
an 

LEXVALss 52 
do 

lexval:* 35 
do 

LFXVALs= 54 
do 

LEXVAbss 51 
do 

bEXVAbS* 36 
do 

bEXVAbjs 37 
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With KFyWDHD&PAcei 30 ] jo 
begin 

f5XRj:MG; = 'or 

enrt; 

With KFrifWUROSPAcet ilj io 
begin 

Si’RlMGts'pacXeii 

end; 

with KKXWUKDSPAce t 37] 3o 
begin 

SiWiNGSs'procedure 

end; 

With t<;EYWUKDSPAce i 33] JO 
begin 

srRiNG! = '’record 

end; 

Wltn KE^WUHUSPAce t 34] ]n 
begin 

STRiWGts'repeat 

end; 

Wltn KEyRQRDSPAcel 35] do 
begin 

S'i'RiMG: = 'set 

end; 

with KKf'rfURDSPAcet 36] JO 
begin 

STRX!4Gsa'tnen 

end; 

with KElfWURDSPAceC 37] -Jo 
begin 

SlRlNGJa'tO 

end; 

With KEYWORDSPAcel 38] do 
begin 

STRINGSa'type 

end; 

with KRYWQROSPAce t 39] do 
begin 

SfRiMG**’‘untli 

end; 

with KEYWORDSPAcet 40] dO 
begin 

5rRiMGt»'var 

end; 


l.RXVAf-:s 55 


'; LEXVAh!= 38 


'; LEXVALSS 39 


LFXVAI.;= 41 


; LFXVAGia 42 


LFXVATijs 43 


'; LFXVAGja 44 


■; LiEXVAD:= 45 


; LEXVALSS 46 


bWX'JMjl- 47 


# , 


; LEXVAGsa 48 



'Vltfi KKfWUWUSPiVcei. 4ti in 

•^egm 

RTRl''JG: = ''rfniie 

«nci ; 

fitn KF^wowospAce[ 42J jo 
begin 

SV»lHQis' ultn 

eng? 


(jFXVAr,;* 49 


lexval:x 50 


I’or I;=U to TKNMAX do haSwlctj :afaXse; 
haswijI ijjxtrue? 

HASv^u L 14JI j strue? 


for i:= -1 to 17 do DbIUmseiUT] : = false? 
ObbiMSP-rtt l/j:=true? 

end? 


oroceinre rw t TPrtP:\^J5Ets ? 
oegin 

PKKVSETCftOnjPMS JS = tARR0'4 , IDENf, INrCONST, WILSY , RBRAC , REAl^CONST , RPAREM .STRGCDNSIJ 

PRKVSeTCA«,r)Sl J SslAKKO^I , TDENT , TNTCONST , MUSY , RBR AC , REALC0NST,RPAREN ,STRGCQ8ST| ? 
PKKVSETCARPAY3Y1 SalCOLON , Ew , OFSY , PACKEDSY] ? 

PKKVSETCAKRQH IjaCARRa*'! , COLON .EG , IDENT , OFSY , R8RAC 3 
PriE7SETiASSIGN ' * 


J S»rARRO»< 


,THEMSY| ? 
,STRGCOBST3 
,STRSC0!«ST3 



,Ea 

RoRAC 1 

PREVSLTtBECJXNSYJ :st8EGTNSl ,Cn£,0N " !! OLS Y , REPEATSY , SEMfICOL .THEMSY] ? 

PRSYSETICASESYI ;= t 8EGINSY , CQLUN ,DDSYtLPAREN , RECORDS Y , REPEArSY/SEMICOL 

PHEVSETtCOLON IsstARRj'^ , IDENIilNICONST, MILSY, RBRAC , REALCONSI , RPAREN 
PREVSETLCJMA jtalARROw , TDEwT, INTCONST, NiLSY , RBRAC , REALCONST, RPAREN 
PHEYSETtCUNSrSYJ SSISEMICOL J ? 

PREYSETtDIVSYJ SsUKROw , T DENT , INTCONSI . NILSY , RBRAC 
PKEVSETCDOSYJ :=[ARKaW ^lOENT.INICOWST.filLSY.RaRAC , 

PREYSETCDO^NTUSYl :»lARRaW , IDENX , INICORST, NILSY , RBR AC 

PKEVSETtELSeSYJ J®LJ ? 

PREVSET£E,YOSY3 satAKROi^ , BEGINSY,COLOM , OOSY , ENDSY , TDENT , INTCOWST , NILSY , RBRAC 

RPAREN ,SE*^ICUL , STRGCONSI . THENSYJ ? 

PREYSETtEQ jSalAKRON , TUENT, TNTCDNSTtNILSY, R8RAC , REALC0MSX,RPAREN 
PREVSETEFILESY} JslCaLOM ,EO , OFSY, PACKEDSY J ? 

PREYSEftrORSYJ SatBEGXNSY , colon , DOSY - REPEATSY, SEMICOL ^IHENSYS ; 

PKEYSETCrUNCSYl S’ILPAREN j,SEHIC6l 3 ? 

PREVSETEGUTOSYJ ?atBEGlNSY,c6l.UF , DOSY , RfiPEAISY, SEMICDL .THENSY3 f 

PREVSETCIOEMJ SatAOOOPHS ,ANDSY, ARROW .ASSIGN . BEGINSY.CASESY. COLON .COMA ,vwo» , 

OONNTOSY,EO ,fORSY,fUNCSY,IF5Y4'^SY,LBRAC ,LPAREiT ,MODSYrMOLOP iNOTSrjOFSYfDBSYfPERlOO ,raQCSy 


r 

,REALCONST,RECORDSY, 
,STRGC0N5TJ t 


-CDNSTSY.OIVSY.DOSYj 





fCOMA 1 01 S|f ^ EJOSW f 




r 


G0T0SY,lESY.INSYrLABFLSY,L8RAC .LpARgK , HQOSY , MULOP , NOISY, OFSYrORSY,REI»OPMEO 

,51GN /I'HfcNSY.TOSY.rWQDOT , UWlILSY , WHILES Y3 ? 

PHFVStTtLABELSYj IslSEMICOL J ? 

PKFvSETlt.BPAC 1**EA0DOPMS , AMDSY, ARRAYS! .ARROW , ASSIGN .CASESY, COLON ,Cf«A 

Fw ,IDENT,IFSY,INSY,LBRAC ,LPARE» ,MOOSY,MULOP , NOISY, ORSY,RBRAC ,REI,8fMEi - 

TwDUUr ,UNriLSY,WHILESY3 ? 


,REPEATSy,SEmCOL 
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PHPVSfcT lI.PAKt'N JSsfAPDnpwS , AHDSy, ASSIGN , CASESJf , COLON ,COMA , OIVSY , DQWNTDSY , Efi ,IDENT,IFSy* 

TNSY^LHRAC ,I.PAREN ,MaOsy,MULUP , NOISY ,UFSY,ORSY ,KELnpMEO ,SIGN ,iOSY,TNODOI ,UNTILSy/ 
WrtlLfcSYJ f 


PHEVSET L*^0nsy] : = t akkon ^tdent 
PHEVSET tWuLDP JjstAHRDW ,in 


tntconsi.ntlsy^rbrac 


^ I w; o n » # f i w u a 4. # f w A # w 

f-na y ocuji if^uiiur j f IPL^^T # ll^TCO^ST # MlitSy # P^BR AC ^ w VUll O A # t\ IT rtrvEUi fPAR’^UUROl'J J 

PREVStTLNlLSYJ JsCADDnpPS , ANDSY. ASSIGN , CASES Y, COLON „„i-CUMA i^-l^SY , DDWNTOSY , Efi , IFSY , INSY , LBRAC 

fLPAHEN , MOUSY, MULOP , ^uTSY , O^SY , RELOPMfeQ ,S1GN rlOSY.TWaDOt ,nNTILSY,MHILESY3 J r nw 

PKEVSET LNOTSY j SslAUunpHS , ANDSY , ASSIGN .CASESY, COLON fCOMA , HI VSY , DOWNTQSY » EO , IFSY, TNSY , LSR AC 


,REALCQNST,RPAREN rSl'RGCDNSrj J 

,realconsi,rparen .strgconsxj 


U « D J # J mo I # np.|jur f 4, X Jf A A ft * « M A wciua I J f 


,LPAK£W .MUOSY^i^ULOp , nOTSY , OHS Y , RFLOpiEO pSTG^l , TOSY , TwODOT ,nNTIL5Y, WHILESY] ; 

PREVSETinrSYi : = tARKO^ ,nLEsy,TUFNT,INTCnNSI,NILSY,H8RAC . REALCUNST, RPAREN^^^, SETSY , STRGC0MST3 

PRKVSETtORSYJ :=!tARKOW , I DENX , i W’lCuNST • NI Lg Y , R BR AC , REALCONSf ,HPAREN ,STRGCONSI] ; 

PKKVStTfPACKFDSYJ J»tCUt.0N , tO ,UFSY5 f 
^^RKvSETtPERIUU JlsfARRON , EnDSY , IDFNT , RBRAC ] }' 

PREVkSETCPkOCSYI ;atLpAKFN ,SEMXCOL ] t 

PRPVSETtPRnyRAMSYJ :sr J ; 

PKEVSETt^lSRAC JS = LAkRUW , IDEMI, i YrCONST, lbrac ,ntlsy,rrrac ,realconst,rpares .SIRGCONSTJ 


. #4. VJll U'VO I , lJU"«v. .niuoiirl 

WKFvSET[PtALCO«Srj SsCADuORMS , AnOSY , ASSIGN , CASES Y .COLOi 

f-D^AC pbPAREN , MOUSY, ^tlLOp , WUTSY , OFS Y , DRSY , RELUPMEQ 

^'t.lLESYJ ; 

PkKVSETIReCDKUSYI JsLCUl.UN ,E0 ,UFSY, PACKEDS Y 1 ! 
PKEVSETLRELUPMEa JlsfARROW , TDENT, TNTCONSI , NI LSY , RBRAC 
PKKVSETlPEPEArSY J : = CREGiNSY , COLON , DOSY , REPEA IS Y , SEMICOL 


• COMA 
,S£MiCOL 


■ , t't- i^rviin , X n urv, u n o 4 J t 

,D1VSY,DOWNTOSY,E® flFSY.INSY# 
,SIGN' ,IOSY,f‘NODDT ,uStILS^, 


PHEVSETLRPAHEN 
S|KGCO''STj ! 

PREVScTlSEMiCuL J:®tARP0w ,faEGI NS Y -COLON , OOSY , EM D5Y , lOENT, INTCONST ,NXLSy , RBRAC 

«EPEAiSY,RPAR£N ,SEMTCnL ,SIRGC0NST,THENSY] t 
PKEVSETLSE'fSYJ JalCOLON , Fa , OFSY , PACFEOSYJ ; 

PREVSETlSiGN JialARROw , ASSIGN , CASESY -COLON -COMA ,OONNTOSY,EO ,I0ENI,IF 
LdWAC ,LPAREv ,n 1LSY,0FSY, RBRAC , KEALCONSr , RELOpMEQ ,RPAREN ,SEMXC0 L ,STR 
-uNXILSY-aHILeSYJ f 

PREtfSETCvSi'RGCQNSTj J = tADUOP«S , ANOSY , ASSIGN , CASESY, COLON -COMA , DIVSY", DQWNTOS 


J jsfARRO* ,ENPSy,tUENT,TNTCnNSriLPAR£N 


,REALC0 NST,RPAHEN ,sirgconsti 
-THENSYI I 

,NILSY, RBRAC , REALCQNST, RPAREN 


J :® tARPQw 

,SEMTCnL 
ICOLOn ,Fa 


,REALCONST, 


,OONnTOSY,EO ,IOENI,IFSY,INSY,IMTCONST, 
,HPAREN ,SEMXC 0L , STRGCQNST, TQSY , IWQDOT 


LBKAC ,LPAR£N ,MO0SY,MnLnp ,N 

■^hilesyj ? 

PREVSETtTrtENSYJ :*lARRaw -lOENT IN 
PHEVSETLYOSY J xalARKQW ,iOEHl,lNXC 
PREVSETlTftOOar JSsfARROw ,TOi!'NT 
PREVSETITYPESYJ :sLS£MiCOL 1 ; 

PREVSETtlfNTILSYJ :=UPRn*« -COLON 
,SEMICOL -SaRGCUNST.TrtENSYJ ? 
PREVSETtVARSYJ JssLLPAPEN ,SEMIC0L 
PKEVSETIWHILESYJ YstBEGTNSY, colon 
PREVSETLWITHSYJ :5!l8EGirJSy,C0L0N , 
PREYSETtEOSj SsiPEpiUO j ; 

end? 

procedure block CACCFSYS,FSYSSSEXriFSYSJ ? 
torwardi? 

orocedure PRnGHEADlNaCACCFSYS,rSYSS SFTOFSYS) I 
tofNard? 

oroceaure prou(ACCFSYS,FSYS»SETUFSYS)? 


NOSY, ASSIGN , CASESY -COLON -COMA , DIVSY", DQWNTOSY , E§ ,IFSY,INSY, 
,NOTSY,OFSY,DRSy,RELUNEa ,SfcMlCOL -SIGN ,I0Sy,TN00nT ,UMTILSY, 


-inENTiNXCQNST.NlLSY, RBRAC 


KEALCONST, RPAREN 


STRGCONSII 


l-INXCOMST-NiLSY, RBRAC - REALCONSf , RPAREN , STRGCONSXJ t 
,TOPNT,INTCnNST,NILSY,RRRAC , REALCOMST, RpAREN ,SXRGCONST] f 

ULON ,U0SY,ENDSY,IDENT,INTC0NST,«ILSY, RBRAC , REALCQNST, REPEATSY, RPAREN 

MICOL J ? . J 

LOn ,OOSY,REPEATSY,SEMICOL .THgNSY] f 
ON ,DOsy,REPEAl'SY,SEMICOL ,THEflSY3 ? 


Benin 


XESiSYSC tPKOGRAMSYl - C8EGINS Y,CONSrSY, FUNCSY- LABELSY- PERIOD -PROCSY-SEMICOL in?gSy,|psrHrS|S) I ^ 

PROGHEAOlNa( ISENlCUL J f IBEGiNSY , CONSTBY , FONCSY , LASELSY , PERIOD ,PROCsy ,5 EMIc 6 l ,f mSY, VARBYJ +PSy5) 


J 

ACCEPrtSEMICOL 

wlOCKC IPERIOU J,IPEHIOO 3+FSYSJ?? 
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ftCCCPl'Ct'KKr JU )} 

Ti£Si:sxfnncrFSkS,FS^sJ ; 

^ f 1 ^ * 

Drocei'jr<»' tDLisrCAf'CFsys.FSi'SsSKTaFsvs) ; 
orocejnre PHOGHgAul^^q; 

hetfin 

TeSl'SYSC CPHOGRAMSlfJ .PSYS") ; 

It CHRSYMSE1'( (.( tFROSRA'^ISYJ ) )) then 
beam 

ACCePTtPR3GRAMSY)| 

Tt:SiSYSC ,FSYS)?? 

ACCEPT (IDFNl .); 

TF:SISYS( I.LPAHEN 1 ACCFSY?? , PSYS) ? J 
It CHKSY.MSET C(tL,PAR£N 1) ) then 
neain 

ACCEPfluPAHEM )| 

lOOISft [RpARP.\i j,LRPAREN ]+FSYSj?; 

acceptckparey ): 
r£srf>YS(AccfSYs,PsysT? 

end 


enm 

else ERRORSETC IPWJGkAMRY) , 'PRUGHPAD l N' ) 

fi dl * 

orocediire"' tooxST? 

nenih 

TesrsYsc [ineMiji ,psys); 

If CHKSYMSeiC CIU0E,JTJ) )) then 

beam 

ACCEPT ( IDENT J J 

TESTSYSt ICD«a J + ACCFRYS, PSYS) ? f 
While CHKSYMser (CIComa d ) do 
beqin 

ACCEPTtCnMA u 
TESTSYSC ElDEfJf 1 ,FSYS); J 
ACCEPTliOENT); 

TESfSYSC rCOMA ] + ACCFSYS , PSYS) ? 

end 


end 

else ERRORSETCHOENTJ ,'inoTST 

end| 

or nee dure CO'YSTDPCPrCACCFSYS,FSYSsSEfOFSYS)? 
f or wa-rdi 

or nee our e LpELUECPTCACCPSYS^rSYSsSETUPSYS) ; 

oroeeoure^PhncFNDECPt(ACCFRYS,FSYs:iiPTOFSYS) i 
f or*(ar d? 

oroceoure ST«'XPrCACCFSYS,FSYS:SETaFSyS)? 
forward! 

oroceaure rYPEDECpTl ACCFSYS.rSYSJSPrnFSYS) f 
forward ; 

oroceaure VARUFCPTC ACCFSYS^FSYSsSETUPSYSD ; 
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forward; 

oroceayre BuncH; 
h@crl D 

FvSYS) I ? 

CU'i&TDFCPri 
T1 PEOtr-pT 1 
VAWDECPI f Ltttf’ 

“hOCKiiOECPt! 

RT '«Apr( AC’CFSYS,ESYS1 i 

pD'i; 

orocejurp f.AHti.uFCPi'? 

^enirt 

TERTRYSC f uAbELSY I +AC rFSYS,FaYSl } 

\t not CHNsyMoK-ff accp'SYSI then 

heoin 

It CHKSyfiaKK c C LfmBELbYj ) ■> ) then 

beain 

3 t CHKSY'^SKT ( t T L A bEUS i! ) ) ) then 

b@^ 1 n 

It CHKSt'tSFf r ( c tOABEbSYl ) )) then 

heqin 

ACCEPTCLABELSYl; , , 

TERTSYSC CXNICONSTJ , tSEMlCOL 1+rSYS)r? 
ACCEPXtXNTCOMST) ? 

TESISYSC CCrJMA ,SEMTCOL J-P’SKS)?? 

«niie CHKSiff^SET (flCO^A J ) ) do 

henin 

ACCEPKCnHA 3: , 

TESISYSC tlMlCONST] , [SEfUCDL 3 +FST&1 ; t 
RCCEPTdMXCO^ST) : 

Tesrsysc ccoma ,sEMTcnu i ,FS)[S}t 

end 


end 


end 


ACCEPTCSSMICOL )? 

TEsrsyst Accrsys^rsYS) ? 


end 

end 

ends 

orocpjnre ruPiSTDKFC ACCrsYo.t'sySjRETOFSYS); 
t ortward; 

nrnceaute Cu'VBTuP.’CPX f 

TEsrsyst tcoMSxsy j + Acct'sys,psys) ? 
it not CHKsyMSErtAL'CFSYS) tnen 

beqin 

If CHKSyNBPIIl (ClCawSTSYn )) thin 
beam 
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It CHKSV,4 Si5 T (UCnNSrSYU ) then 

beam 

If CHKSyMSRTC C(tCUWSTSYJ) )) then 

beam 

ACCliPlT C0NSTS5f) ; 
cjNaTot’f'c tsEMicoCi i^rsEmcnu 
ftC''EPiC3EMIC0L j; 

TESfSX5( ClOENTl+ACCFSJfS.FSYS)?? 
wnixe CHKSVMSEI (ftlDENTJ) ) do 
henln 

COt^STUEFf [SEMICUIj 1 , [SEMICOL 
ACCEPTCSEMICOL ); 

THSrSXSC [ID£WXl+ACCFSJfS,FSYS) ? 

end 


J+FS^Sj?j 


3+FSYS3 J; 


end 

end 


p-nd 

end 

'»nd? 

orocejnre cuysTm^TC ACCF ays,FS/!=!sSETu»!’sYS) ? 
f orv^ard; 

Drocednre CUNstukfj 
beofn 

TESISYSC EIDENfj , tfij , IMrrONST,REALCOfiST,SIGN ^STRGCONST] +FSYS) ? 
ACCEPl'CIDBNf ) ,* 

TESISfSCtEU J , [XaENf,fNrrUNiiT,ReALnUMST,SIGN ,SrRUCQNSTj+FSY§) J; 
ACCEPT C EG ); 

CgYSTA^rCACCF3YS,F5fSK 

end ; 

procedure number c ACCFsy s, FS sf s j setofsysi ? 
forward; 

procedure CUNSTanx? 

beqm 

TESXSyS 
If CHKS 
begin 

If CHKSYMSBX ((CSTGN 1) ) then 
begin 

ACCEPICSISN ); 

resrsxsc rxOENT,INTCONST,REAIjCQ»ST] ,FSyS 3 ; 

end 

; 

!f CHKSXMSeXE (( £TMTCClNST,REALCONSn 3 3) then 
begin 

HUMBER (aCCFSYS,F5X S3; 

end 

If cHKsyMsexc cccidentj) 33 then 
begin 

ACCEPrCIOENi) I 
T£SrSXSCACCFSU,FSfS3f 

end 


C CXD£NI/iNfCUNST,R£AUCONST,SlGN , STRGCONST J , FSX53 J 

XMSEXC CC tXOEHT,lNTCONSl\REALCONSr,SIGN 33 3) then 
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else ERRORSETC riDEMf.jtNTCONST^REALCONST] , 'CONSTANT *) 

end 

else 

If CHKSyMSETC (ClSrRGCOMST] ) )) then 
begin 

ACCEPrtSTRGCONSI) ,* 

TESlSJfSC ACCFSyS,F£YS)? 

end 

else ERRORSETt ClDENr,lNTCONST,R£ALCONST,SiGN , SIRGCONSTJ , 'CONSTANT ') 

end ; 

nrncedare wu'^bERj 


TtSlSi^SC tlNTCONST.HEALrONSTJ ,f SYS) t 
Jf CHKSy^sEXC tcliNTcnNSTl J )) then 
i n 

AcrEPrtiNicaNST) t 
Tc,SlSYSCACCFSYS,rsyS); 

end 

Pise 

it CHKSYMSen ( ( tREALCUNSTJ ) )J then 
beain 

ACCEPIlKEALCnNSfl ? 
lESiSYSCACCrSYSePSYS)? 

end 

else ERHORSErcfiNICONST.REAtiCDNSTJ ,'NUMbER ') 

end ; 

procedure typedefc ACCFSYS^PS rsJSFTnrsYSj ; 
forward* 

procedure typedecpt? 

beam 

TESTSYSC IIYPESYJ +ACCFSYS,FRYS ) t 
If not CHKSYMSEl'lACCFSYS) tnen 
begin 

if CHKSYMSFH (CITYPESYIJ )) then 
begin 

If chksymset rtfiYPFSYj) ) then 
begin 

If CHKSY«SFTC (CtTYPESYJ) )) then 

beam 

ACCEPTflYPESYD ? 

TYPEDEFC tSEMICOL 3 , iSEMlCOL 3+FSYS)ff 
ACCEPTCSEMICOIi )| 

TESTSYvSC riDENTJ +ACCFSXS, FSYS) f f 
While CHKSYMSET (CCIDENTJ) ) do 
begin 

TYPEDEFC rSEMiCOE 3 , tSEMICOL 3frSYS)?f 
ACCEPTISEMICOL )! 
TESrSYSCrj0EMl3+ACCFSYS,FSYS)? 

end 

end 

end 


end 
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end 

orocejnre'’ TjfPtD&NOTErCACCFSXS^FsysJSFint Piff:) t 
f or^^ard; 

oroceiure rypEDEF; 


beam 

TLSTSySC [1DEMX3 , CAHkAySY,ARHnW ,F.Q , FltjESy , IN 1‘COMST , LPA RKN 

,^jTkGcaNSX]+FSYS); 

ACCEPKinEND ; 

TtSrsitS(. [£0 ] , tAHHAYSY^ARKOr. , Fl LtSX , IDEM'l , IMIC JMST , LP A rGN 

mTHGctiHSi J tr^SYS)? ; 

ACChPICEO ); 

_Ti(Pt.nENutErcACc:FS)i;s, Fays'* ? 

Droce:nir^‘' p'iRiypF(.AccF5ys,Fsys:sFrnFSj;s) t 

forward; 

nrocedure SI«PLETyPECACCFSyS,F5yP;KETUFSYS't ; 

forward; 

or ace jure SlKUCrTyPECACCFSYS/FSySsSETOFSVS); 
forward ; 

oroceoure Ti-ptOENoTEr; 


,PACAEUSy ,REALC0N5l,RECDRDSY,SErsy,SIGN 
,PACKFuSY,REALCONSl,RFCOR0SY,SETSy,SIGN 


beam 

TESlSySC lARKAYSYfARRnw , FII-ESy , iOENT, INjCONST , LPA RFN , PACKEDSY , REALCONST , RECORDSY , SETSY , SIGN 

STRGCUwSl'J.FSYS^; 

if CHKSYMSEK ( ( I IPENT , TNTCnWvST , JjPARt” ,REALCDNSr, SIGN ,STRGCnNST3) )) then 

beain 

SIMPLETyPECACCFSYSfFSYSj; 

end 

* It CHKSYNSFTt ( ( L ARPAYSY , FXLE5Y , PACKEngY , RSCORDSY , SEISYI ) )) then 

beam 

SrHUCf 1 'YPECaCCFSY5,FSYS) t 

end 


else 

If CHKSYMSEK CCtAHROW 3J )) then 
begin 

FTRTYPECACCFSYR^FSYS); 

end 

else EKROfiSETC tARRAYSY, ARROW , FILESY , inENI , lMXCOM#f , LpAREN , PACKEDSY # REAPCOMST , RECORDST , 

SETSY,SIGN ,STRGCONSr5 , ' rYPEDENOIE*) 

end; 

procedure ENUMTYPECACCFSYS^FSYStSGTDFSYS) ; 
forward; 

procedure tdtypecaccfsys,FSYSiSET0Fsys)? 

f 0 r rt3 f 

procedure SUBIYFEC ACCrSYS,rSYS;SErnFSYS ) f 
forward; 

procedure Sl«Fl.ETYPEl 


beam 

TESTSYSt [IDENr^iNrCONST^LpARFW , REALCONST^SIGN ,SIRGC01«ST3 ,rSYS); 
If CHKSYYSEK (CtbPARFfti ]) )) then 
beam 

ENHMTYPECACCFSyS,FSYSJ f 
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end 

else 


en^? 


tf CWKSiMbt-’i’ i ( f LTjPwTj ) ■) ) then 

beqin 

lUTSfPyt ACCP’SYS,I?’S^S) f 

enrt 

else 

If CHKSyMSFff (C trNTC0N5X,ReALCnNSr,STGN ,STRGCDNSI1) )) then 
hehln 

SuBfYFeCACFfSYS^FSYS); 

end 

else EMRORSETC [XDEWT,XNTCONST,t,PAREN , REAbCDWST , SIGN r SXRGCUNSTJ , 'SlUPLETYPE' ) 


oroceanre knumt^pe; 

nenin 

TEP'I'SXRC [LPARCN t , rineN|!,KPARE'J 1+PSYS1; 

tObiSf r [RPARKR J,tRPAREiM J+FSYS)f; 
ACCE^rCKPAHEN ): 

1'c.S 1 b X S C A UC F S i: S . F S Y b 1 ,* 

A j[) ♦ 

oroceaiire' IuType? 


becfin 

TESiSYSC I IDEM! ) ,FaYS); 

If CHKSY«SexC (dlDFNTJ) )} then 
beqin 

accepxcidend; 

TESXSYSC LXWUDOT 1 + ACHFSYS.rSYS) ; J 
If CHKSYMSEx ((riwonoT 3 5 3 then 
beam 

ACCEPICXRQDOT ); 
CaNSTAMXCACCFSYSrFSYS) ? 

end 

end 

else ERKHRsetc iiDERX] ,'lOrypE ') 

eni? 

procedure i:ubESSCONStCACCFSYS,FSYSSSEfnFSYw‘?) t 
forward! 

procedure suhiypf! 

beam 

TESXSYSC [INfCUNST.KEAaCJMST.SlG 
lULESSCONStt li'WOOjr l.riDENX- 
ACCEPlCXirfODUr ): 

CUNSTAKXC ACCFSYS^FSYS)! 

end ; 

Preceinre lULESSCONStJ 


N jfSTRGCUNSTJ , ITDENT.TWODOI 3iJ>FSYS)| 
INIcdsSf ,REAljl?ofi 5 T,SlGS , SIRGCOTStItWODOT 


|FFSYS) 3 f 


beoin 

TtsrSYSC riNXCUNST.KEftnCONST^SIGN ,STRGCOMST3 .rSYSJr 
It CH^S^^^5EXl (cUiGn 33 )) then 
beam 

ACCEPXtSiSR ); 
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TtSr.SlCSt liDfiNl MNiCJMST.REAyCONSTJ ,FSyS) f f 
If criKsy'-ssEi I ccnaFtHTj) )) tnen 
bealn 

Acca:t*i'UoeMn ,* 

T t; 5 1 ’ s f s ( A c c F s f s , F s y s i ; 

*?nii 

else 

It CHKSyMSFXC c C [TNTCnNSl^KFAtiCnwSn J )) 
beqln 

NUMdSKCACCFSYS,FSYSj ? 

end 

else fiKROHSETt [infcNT,INTCONST,REALCONSTJ , 

end 

else 

if cHKSfMSKrt ( ( iTi'^Tcnnsf ^REAt^cnNSU ) )) tnen 
henin 

^u'iuKrtuccFsys,FSj:s) » 

end 

^ JL Ci c> 

If CHKSYMsErC (C LSTRGCOMSTJ ) )) then 
beqin 

ACCePi‘CSjTRCCaNv<;T); 

iiisrsYscACCFsxs^Fsys)? 

end 

else EHRORSETC tlNlCUNST,REALCDN5T,SIGN 

end? 

orocedure ARRAyxYpECACCFSYs,rsYS*SErnFsys) ? 
forward; 

oroceaure rhrETYPefACCFSYSrFSySjSETOFSYS); 
forward? 

orocedure RECiYpecACCF5ys,rsY5sscroFSYSj? 
forward? 

procedure SETxypR(ACCFsys,Fsys?SFroFsys)i 
forward? 

orocedure siRUcrrype? 

bedin 

TESTS YS C t ARRAYS Y, FI uFSy,PACKEOSy,REC0RDSy,SETsy] ,FSYS 
If CHKSY*«Sei( (UARRAySY,Fit.ESY,pACKfi05y,REC0RUSY,SE 
beqin 

If CHKSY^ser (( tPACKEOSY] ) ) tnen 
beoin 

ACCE»rCPACK£r>SY) 

end 

? 

If CHKSYMSSK ((tARRAYSY]) )) then 
beam 

ARRAYrypECACCFSYS^FsyS)? 

end 

If CHKSYMsEXC ((CRECOROSYJ) )) tnen 
begin 

«ECXYPECACCFSYS,FSYS)? 

end 

® it CHKSYMSEIC CCtSETSY]) )) then 


tnen 

TDLESsCONS') 

SIRGCONSTJ , 'IDLESSCDNS*") 

SYl) )) then 
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heqin 

*?£Tiyp«r(acCFSXS,P'SYSl ? 

end 

^ i S 6 

If CH^Sy^SETC (rtPITjESYl) )) tnen 
beoin 

FiT.ETSfPb'f ArCPSYS,i?’Slf?5J ; 

end 

Pl-se ERKOKSETC [ARRAYSY , ft LESY, records Y,SEXSY1 , 'STRUCTIYPE') 

pnd 

eXSe KHROKSETt LAKKAYS/,FILiFSY,PACKEUSY,KECORnSY,5;ETSYJ , ’’SIRlJCTTYPE' ) 

pnti f 

nrncejure ''HKAYfYpE; 
beain 

rE«lSj(S( 1 ARKA^Slf J ,FSYS) ; 

It ttlAKKAVSYJI )J then 

beqin 

ACCERK ARRAYSY) ; 

TcsxsYst iuhrac i , lakraysy, arro^ .FiuESY, tdent, imtconst,lparen , OFSY, PACKKQSY , RSRAC 

RtAi,CUN3 r,KECaR0SY,SFl'Si ,STGM ^STRGCOnSII tFSYS); t 

accerkdhkac )t 

SiFpLEfjCPbt LCO'^A ,RbRAC 3 , t ARRAYSY , ARROii /CJMA , Flt-ESYilDENl’, INTCONST, bpAREH ,OFSY, 

FACKFpSlf ,RBkAC , R b A bCUNST , RECORDS Y , SETS Y , SI GM , STRGCONSI3 trSYS) ; ? 

wnlle CHKSY*?SFr ULCU«A J) ) do 
beqin 

ACCERXICOBA ); 

SiMpbErtPEf irOMA ,RbRAC 1 , f ARRAYS Y , ARKO»( ,COMA , FiLESY , iOENT, INrCQMST^liPAREN ,0FSY 
PACREDS Y , RHRAC , RE ALCUNST, RECORDS Y , SF.IS Y , SIGN , STkGCOwST} tFsrs ) ; 

end 

t 

ACCEPXtRBRAC )t 

TESrSYSC luFSYJ , [ARP AYSY , AhRU» , FTL.E5Y , IDENT , I MTCOhjSX f IiPAREN , PACKEDSY ,REAUC0NST, RECORDSY , SETSY 

SIQM ,SXKGCUMSTj+FSYS;?; 

ACCEPKOFSY) ? 

TYP£OENOTErCACCFSYS,PSY&) ? 

end 

eise ERRORSErc LAKRAYSY J , 'ARKAYTYPE ' ) 

^ n cf * 

procedure VlEbUUlST[ACCFSYS,rSYSJSEroFSYSj; 
forward; 

procedure hecxypC; 
beam 

TESfSYSC [KECOROSYJ ,FSYSJ; 

If CHKSY«SEr( [ C [HECURDSY1 ) )) tpen 
beam 

ACCBPrCRECDRUSY) Y 

TESTS Y5f ICASESY,ENOSY,TDE nTJ .FSYSJ f f 
i£ CriKSYASSr C(tCASFSY,IOENT3 ) ) then 
beqin 

FlEbObfSTC tENOSYJ , CENDSY3 +rSY5) ? 

end 

ACCEPXCENDSY); 

TtSXSYSCACCrSYS^FSYS); 
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end 

else (iRKORSETC IHKCJRHSrj , 'RiiCrypp; ') 

end; 

Procedure varxartpt c ACCFsrs, Ksvsj sfinpsys) ; 

procedure FittljULiTST? 
beqin 

rpsi's^sc iCASEsy, iDK.^Tj ,Fsr‘;j r 
It CHRsyMSETi ttuoERTj) )) then 
Peqin 

lULlSrt tCar^UM I , tARRAysy, arrow .CUOUM , FTUESY, TDENT,INTCnNSX,ijPARE^ rPACKEDSY^REAbCONST, 
RECUROSr ,SErSY,SIGN ,SrHGCONSri+FSYS)?y 
AccfcprtcnbUR )t 

■rifPynENjrtrt isR^TChu i +ACCFsrs, LSE'^iron itFSYSn? 

If CRKSYMSEI' ccrsFUcnb J) ) then 
heoin 

If CH^s^R8F^t (fiSaiiCOL. 3) )) tnen 
oeqin 

ACCEOrf bFHTCHL )? 

FlEuOLTb'^CACCFSYS^s’SYSl ; 

eni 

end 

end 

B 1 S 6 

If CWKSXRSFI'I c r cCA"=5E5;y3 ) )3 then 
begin 

VARIANrpT(ACCF«!yS,FSYS)? 
else ERROKSEtC rcASFSy,TDFuTJ ,'FIEbDLTST '} 

end; 

procedure varia.jT( ACCFSfs,F:>ybJ3eroFsyS3 ? 
far ward; 

Procedure VAt^lAwTpT; 
begin 

TESisysc rcASKsrj ,FS3fsj ; 

If CHKSYNSEXC CUCASSSyi) J) then 
begin 

ACCEPT tCASFSU; 

TESISfSC linEMf 1 , riMfC0W5T,nKSy,REALC0NRr,Sl3N ,STRGCDNSTUFSYS); ? 

ACCEPTliUE-UJ; 

TESrSYSC tcnu JR tOFSf] , ahE«r#INTC0NST,REAbC0’«ST,5IGM rSTRGCONST] tFSYS) I ; 

If CHRiY^Sfif ccccnuOtS J) ) then ■' 

begin 

ACCe.PfiCnbnM )f 

TESfSYSC rxnsfjrt , El«XCO'«ST,OFSY,RRALCONSr,SIGN ,STR#CONSXl +FSYS) ? I 
ACCEPmOEMI); 

resiSYS( ruFSYJ , CIDEnT, r«rCONv«5I,REAbCOHSX,SI5« rStRGCOf^SXJ+FSYSi? 

end 

; 

ACCEPXlUFSlf ) J 

VAPiANTf [SKMICOL J + ACCFS YS ^ tSEMICOL 3tFSYS)n 
wniie CH^5Y»SE'r KESEFICOL I) ) do 
begin 



ACCfciPftStMrcOL )? 

VAWXA'^l'C [SKMTCnL J +ACCPSYS , tSKMlCai, l+FSYS)? 

end 


end 

else tHKOKSerC 1.CASKSYJ , 'Vi^RlANTPT ') 

end/ 

nr nee iu re CdM^iTulSTC ACCFSYS^FSYSSSFtdfSYSJ J 
■forward; 

nrncejurn variant/ 


nenin 

r 

l 


«’t:«rHYSC [lD£.’Jr,iNICUMST,RE;ALroN6T,SlGN .SlRCiCQMSTJ .FSYSJ t 
If L'HKSYMSKH C C UOK.'«T,,t,>|TCn,^Sl,AEAt4CnNST,STGN ,STKGCDNSr3) )) then 


J , LCuOJM 
,1 , THPARb!^ 


,LPARt;M ^KPARt'NI 
1+FSYS)J J 


3 +FSYS);/ 


deain 

CQ'' 1 STLIST( icaun<j 
ACCEPl ICnLUN 3 ? 

TiiSi’SXSC tUPAKeN 
ACCEPTC b^^AKEM ); 

TKSl'SYSl ICA 5 E 6 Y, TDEyT,RPAkEN J ,FSYS);; 

If CrtKSY'IStl' C( CCASPSY^TbFiMTJ 3 ] then 
beam 

FXEbOuISTC [ROARtLN 1 , [RPARtilY 3+FSYS3; 

end 

ACCgPi’CRPAREN ); 

Tti;SISXS(ACCFSYS,FSYS 3 | 

end 

else ERHOKSETC t lOfiNr, lHrC'JMST,Reftl4C0VST,SlSh ,SrR3C0RST3 ^'VARIAiT 

end; 

Drocedure constijIst; 




begin 


TESrSfSC ClDENr,lRrCUMST,REaLCOMST,SlSftl .STRGCONSTJ ,FSXS); 
tf CHKSY»*SEIC (( tlDENT,I,ilTCONST,AEAl.CnNSf,SIGN , S't’RGC0NSr3 ) )) then 
begin ^ 

rof^STAWf ( [COWA J + ACCFSYS, ICUMA 3+FSyS}>; 

While CHKSY'-SEr t(lCO«A J) ) do 
begin 

ACCEPTtCO«A ); 

CQNSTANrt LCOMA J tACCPSYS , tCQM A 3+F5YS); 

end 


end 

else ERRORSETCtXnesiraNrCORST,REAl4COMST,SIGN .SIRGCONSTl mCOWSfbIST '' ) 

end; 

orocedure settype; 


beam 

TtSTSYSC CSEISY3 r UbENl , XNICONSTmPAREN 
ACCEPl’(SErsX) ; 

TESfSYSt COFSYJ a lOE^IT, INTCOrtSl , LPARE<« 

ACCtPrCOFSY); 

siMpLETypeeACCFSYs^Fsys); 

€!* n ^ * 

nrocedure' filetype; 


, 0F5X , REALCONSI, SI GN , SfRGCONSi) +FSYS) 
, REAtCONSr, SIGM , STRGCOfff XT +FSYS) ; ; 
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beam 

TESTSYRC CFILKSYJ , [ I 0F.>|T , T .iTC^NS I , LPARfciM 
ACCEPKFILESY)? 

TESl’SYSC lOFSYJ , HUKNT, IfjTCOtMST, LPAREN 
AC'PFPICOFSY) ; 

SX!^FI.KTYP[iCACCFSYS,rSyS) : 

0 n * 

nrocexure' pthi'YPF; 


,OFSy,REAbCaNST,SlGN , RIRGCONST] +FSYS) ? 
^KEALCHNSf ,STGN , STRGCONSTl +FSYS) / ,' 


r>ectin 

TtRTSYSl [ARRO»< J , L tOE.'lTj +FSYS) t 

Acct.v’r( ARROW j; 

ft; S!SYS( riDFNTJ ,FSYS); ? 

ACCtPTf IHENIJ; 
I‘e,STSY.S(.ACCFSYS,P'SYS) ; 

enrt ; 

ornceyiir'"' vaRUKF( ArcFSYS,FSYS;R(i;TaFSYSTi ; 
forward ; 

oroceiura vapufcox? 


beaj.n 

rtSTSYSt tVAkSY J +ACCrSYS,FSYS) ; 

It not CHKSY'iSFKACCFSYSi tnen 

heoin 

If CHKSf^SFiC CCtVAPSYj'i tien 
bectin 

If CHKSY3SET ((tVAkSYn ) then 
begin 

If CHKSY«SET( cCCVARSY]) )) then 
begin 

ACCEPTfVARSY)? 

VARUEFt LSE'!ICUL 1 , CSEMTCOL 3+FSlfS)r; 
ACCEPKBFMTCOL ); 

TESrSYSC tIDEMT]+ACCFSYS,FSyS);j 
wnlie CHKSY«SEI CCIIOENTJ) ) <30 
begin 

VARDEFC tSEHICOL 5,CSE?IICDtj J^FSYS);; 

ACCEPXCSEMICOb )t 

TESiSYSC UDEWTI+ACCFSYS^FSYST; 

end 


end 

end 


eno 

oroce-jure vaRDEF 


end; 


end 


beam 

TfcSiSi:5tllDE!«IJ,UHRAYSY, ARROW , COLOR ,FlLEgf ,ItlTCONSr, uPAREH ,FACKB0Sf .RIALCOMSf #R80O«0SXf SEISSTf 

SIGN ,sx«GcuNsrj ersYS) y ^ 

lOUXSK LCOLON i , IARRAYSY, ARROW , COLON , FILESY, TOERT, TMTC0NST,LPAREN ,pACKe0SY,RiALC01tS?>REC0R0SX 

SE'rSY^SlGN ,SIRGCURST1+FSYSXU 
ACCERXCCOLiON }t 
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T5fFtDfc;rJ0TLr(ACCFS)fS,F£jYSJ ; 

enrt; 

procedure Kwoeet ACCFSYS,FiiYsssF.rnFS^5;j ? 
forward; 

nroceaure ^'HOCUSuf’c ACCFSYS,FSYs:SFnFS](S) ,* 
forward? 

procedure PhOCFNOtCPt? 


Peain 


I'bSivSKtit IFUNCSY.FRUCSY J +ACPFSY5,FSYS)? 

if not CHKSiwSFi't al’CFSYS) tnen 

oeaif 

It CHKSY»«SEX( CUFUNCSYrPROCSY] ) )) then 
beotin 

wnlie CHKSYMSFI ( C tFUNCSy,PROCSYJ ) ) do 
beain 

It CHKSyj'SK'j c CCLPHncSYl) )) then 
benln 

PRncnE;caFUNCSY,PkOCSY] +ACCFSi:S, rFUNCSY^PROCSYJ+FSYS) ; 

end 

else 

it CHKSy«aFT( CCtFUNCSyi) )) then 
beam 

FMDECt tFUNCSY^PROCSYl tACCFSyS, [pyRCSY , PROCSYI +FSTS) ? 

end 


end 


end 

end 

end? 

procedure PROCHEADINq(ACCF 5 Y 5 ,FSYSS SFTOFSYS) ? 
forward? 

procedure phocdfc? 
beqin 

fESTSYSC IPKOCSYJ ,rsysi? 

It cHkSYFSETt CCiPKncsyjj j) tnen 
becfin 

PROCHEAOIiMgC iSE^TCnu 3 , IREMXCOt. 3 +FSYS)?? 

ACCEPICSEMICUL )? 

TESrsyS(L£JEgiASt.CONStSY-FUNCSY,IDENT,LABELSY,PROCSY,rYPESY,VARSy 3 , tSEMICOL 
it CHKSYMseii (aTDE. 1 Tj) )) then 
heqin 

ACCEPIllDEND; 

l‘ESl‘SY»( C5KMICOL J,FSyS)? 

end 

® If CHKSYMSSrf CC CBEt;IMSY,COf^STSy,FUNCSy,l.ASE£|5Y,PROCSy,TYPESY,VARSy3 ) ) 
bedin 

»LocK( rsedicoL sasEwicoL- j+rsys)/ 
end ■ :''f" 

else EKRQRSETC C 8 EGINSy,CONSXSy,FimCSy,IOSSt,LABE!jSf,PROCSy,!I‘YPSSr,\rAR 5 yi 
ACCEPItSEdICOL )? 

TESfSySCACCFSyS,FSYS)? 

end 

Pise ERROKSEXC IPKOCSyj , '’PROC0EC ') 


3+PSY53;f 

-,'PROC®iC 
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end ; 

procedure FuHLADIwGC ACCIf'SXS,K£>YtiSS€:iOfSYR) J 
forward; 

Procedure Fii'itC; 


beoin 

TtSTSYSC It UlVCbYJ ,f sysj ; 
it CHKSYWSKXC CCLfUMCSYn )) tnen 
oeatn 

r^HfelAOIwGC tSKwICOt, J , LSEMICOL 1+FSYs);; 

ACCfcPXCSEMlCOL )f 

TtSrSYSC tttt;SlNSY,CGi<?;rSY,t UNCSY, TDENT,LABEl.SY,PtiOCSY,rYPESy,VARSy3 I tSE«ICOL 
it CHKSYMSfc:r( CClTuFwTj) )) toen 
beain 

AccEPi'iiDciMn; 

XfcSXSYSt roEMTCOP J,FSYS)f 

end 
^ X ^ ^ 

It CH^S;^MSF^f (CtPEGlNSY,COMSTSY,FUMCSY,LABEL.SY,PROrsY,TyPESY,VARSY}) ) 
beGXn 

BuncKt rSFdTC’OL j , tSEMiCOL T+FSYS); 

else EKKOHSETC rttFGTNSY,C0NSISY,FUNCSy,IDE«T^LABELSY^PR0CSX,lYPESY,YARSY3 
ACC£Picst;>^icati ); 

T£SrSy5CACCFSYS,FSYS3 f 

end 

else tKKOKvSEI’C IFU.YCSYJ , 'FYPeC ") 

end; 

procedure FUKrtPARList caccfsys^fbys: sftgfsys) ; 
forward; 

procedure Phucheadinp; 


beoin 

riiSTSYSC tPROCSY] ,F 5 »Y 5 J ; 

It CHKSiPSEll UtHHnCvSYU )) then 
becrtn 

ACCEPXlPHOCSt) ; 

TESXSYSt UUE'll'I .FSYSi; ? 
flCCePXllOtNi;; 

TESXSYSt ILPAKh’N J 4- ACCt SYS, FSYS) ; f 
If CHK3Y?45Er (llEPAREN 1) ) then 

beam 

FUH«PAKbIStCACCFSYS,FSYS) | 

end 


end 

else EHROKSETC IPKJCSYj mPKOCHEAOXN ' ) 

0 fj| • 

proced'jre fmheauInG; 
oeam 

lESTSYSC [fUNCSYJ ,FSYS)f 

If chksymsexc (itrudCSYJ; )) tnen 

beam 

ACCEPItFU«CSY J ; 

TtSISYSCtlWEYfJ ,fCOEGfl J+FSYS)?f 


UFSYS);; 

) tnen 

mFNDEC *’); 
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ftCCEPl'( iUL'Nl') ♦ 

Tfcisrsjfsc icuuuii .r.pArtRiM j , iidkntj + f■.s^SJ y? 

If CHKSYMSfcJ' CtlCPttRel'^ 1) ) then 
heain 

ruw^PAHulStC ICnuHi'j J,LCUt4Ui^ +PSYi) ; 

end 

? 

ACCfcPICCULUN )} 

TkuSrSYSC UDENf] ,F'SYS) ; t 

AccEPrclue^Jr^ ; 

T|iSISYSCACCFSYS,P’SYSn- 

end 

else EHt?ORSEl*( IFUNCSYJ , 'F.-4PtAuTiid ' ) 

end ; 

ProcPinre KuwHPAPSPEcCACCrSYS^FSYStSEinFSYS) y • 
forward; 

Dfocecinre FUKHPARi^ISt; 

Dedin 

I'fcSTSYSC I tjPARb’N I.FjYai; 
it CHKSYMseti CtlliPAKFN J) )j then 
ream 

ACCfeTPUbPAHEN ); 

rORMPAHSPECC iKPAPtd ^SEHICHL j , tRPAREN ,SEWiCaL J + fSYSl;; 

wniie CHKSYMSKf (<■ t'5t-Micur. i ) ) do 
heoin 

ACCtPl'tSSHtCdu jy 

KUKMPAKSPEct tRPAREN ^SGMTCOLi J , CRPAREiY ^SEMJCCOn )+FSYS^? 

end 

y 

ACr£PXlRPAHEM ); 

TESISyStACt:rSYB,FSV3); 

end 

PiSe EHROKSETC ILPAKEN 1 , 'FHKdp ARLiS ' > 

end; 

orocedure YnbYAKPARSOC ACCFSYS,FSYStSFfOFSYS) y 
forward; 

orocedure FuhmpaRSPEc; 
oenin 

TESISYSC tFUNCSY,iaE<jT,PROCSY .VARSY3 ,PSYS); 
if CHKSfMSEXt (UlUEfiT,VARSYJ ) )J tOen 
beoin 

VAliVAHPAHSDtACCFSYS,FSYS); 

end 

6 X S 0 

If CHKSYMSKTt (.ftPROCSYJ) )) tnen 
begin 

PKnCHEA0r.YgCACr'FS¥S,FSYS)? 

end 

® if CHKSYMSEK UtFUHCSX]) )) then 
begin 

r(^HEAUIWGCACCFSYS,rSYS3f 

end 

else EKH0RPETUFUNCSV,IDE«T,PR0CSY rVRftSYl ,'PnRRpARSFF.'3 
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end; 

nroceaurp vmi.vahPhRsp; 

b© Cl X n 

ftSXSiSC tlDENj:,VArtSf3 ,F3Y3); 

It CHKSyMSEXt U LIDRnT^VaRSYJ ) )J then 
benin 

If CHKSYMSEr CCCVARSi:]) ) then 
begin 

ACREPH VAHSn 

e nd 

* 

lULiSrucjiiUN J,rcdlin{4 ,TD*^i'<Tj+Fsys);; 

ACCEPK counts )! 

TESISfSC UUtNXJ ,FSYS1 J ! 

RCCtFXtlOt.H£} ; 

TE.SisyscftCt:Fsys,FbY33,* 

end 

Pise EHROHSEl't UUENI^yftKSy 3 , 'VAL.VARFftH3') 

6 nH ^ 

oroceaurp expli S'rcACCFSfs,Kay3iSRrnFs/S} ? 
tornifstrd; 

brocedure vakaccess i ACCFsy s , FsfS i SFnFsys) ? 


beoin 

rESlVSySC UHKtJw ^UbRAC ^PEKTUn .1+ACCFSYS,FSYS); 
It not CHKSfMaEri ACCFSYS) tnen 


beam 

If 


CHKBfMSEIt CdARRuW ^IjBKAC ^PERIOD J) )) then 
beam 

Wtilie CHKSyMSRT CUAKRUW ,)u9kAC , PERIOD J ) ) do 
begin 

If CHKSy«SETC CCIPERIOD 3) )) then 
begin 


ACrtPXf PERIOD )t 

TESXSJtSaiDENXl ,FSyS)?; 

ACCePTCiOEK'D; 

TESl’SYSC tARKQW ,0BRAC , PERIOD , 1 +ACCFSYS , FSYS) 
end > 



^ X S 0 

If CHKSYMSEXf (CtARRUW 1) }) then 
begin 

ACCEPTCARKOW )? 

TESi’SYSC tARROW ,LaRAC , PERIOD 1 +ACCFSYS, FSYS) ? 

end 

Pise 

If CHKSXMSEIC (CtOBRAC IJ )) tten 

be^ln 

ACCEPTCLBRAC )} 

eX»LISTC IRBRAC JdRBRAC J+FSTS);! 

ACCEPICR8RAC )? 

TESrsySt EARRDS ,LBRAC fPEHTOh 3 tACCFSIS ,FSrS5 f 

end 

end 


end 
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end 

end ; 

or ocean re cu'<PSi'f*rCftnCKSYS,if’5rs;S£TjP3ya'' ; 
forward; 

procedure Sif^rPi'f 


benin 

TL’STSrSC CbKGiNSyj ,FSY3) ? 
CUMPSi’MTCACCFSyS,t SYS) ? 

end; 

or nee jure S lerstU c ACCFSrs, FSVSJSKrnF'jySJ ? 
f* '* 

oroceanre Cu*^psr«i; 


beam 

rt;srsrK( tbEGlNSY J , ICAGF SY,P'dD 3 y,FURSY,G 0 TUSY,inENj:, iPSy,TMTcnNST,HFpFAT&Y,Sl<:MXCOL ,WKIGESY,WIIH5Y3 + 
KJ> Y S ) Jf 

ftCCEHr(BF:Glt^Sy 3 ; 

Sr-'XStJ'U [ENOSY) , I E'iaSx J ■fFaYB) ; ? 
flCCEPHt,NOSY ) ,* 

TESiSYKC*CCFKj(S,FSY&); 

^ n * 

procedure' ST^r( ACCF3YS,FSYS:st;T0FsYsi ; 

forward; 

procedure ST^ISEO? 


bedin 

TESISYRC tBF;GJNSY,CASFSY,F:jRSY,GOTUSY,IOENl,IFSY,INTCO.^Sr,RFpKATSY,S£MICQL 
FSYS); 

If not CHESYWbKiHAUCFSYSl tnen 
bedin 

If CHKSYMSEn (( lBEGJNSY,CASESY,FORSY,GOrOSy,TDENT,IFSY,INTCOJ<iST,REPEAISY,SEMICOL 

■^IITHSX]) )) then 

heain 

SI^iUSEMlCaB J+ACCK5YS, rSEMTCOL J+FSYS)?; 
wniie CHESYYSFT tCtSEMICOL 1 ) 3 do 
Deem 

AccePr(SErticnE ); 

Sfwic tSEFiCUL 3+ACCFSYS, CSEMTCOL J+FSYS31 

end 


,WHII.ESY,WlXHSY1+ACCFSyS, 
,WHIGESY, 


end 

end 

end; 

Procedure ASSPRUSTWTC ACCFSYS,FSYSiSETQFsy5) ; 
forward; 

procedure GOTUSrFT(ACCFSYS,FSYS!SETQPSYS) ; 
forward; 

nrncedure niRUCfSiMK ACCFSYSf FSYSj SfiTOrsYS) ; 

forward; 
nroceaure STMi’; 

henln 

TfSISYSC tBEGlWSY ,CASESY,FaRSY,GQTOSY,i:OEI«f ,IFSY,I!ITCO«Sr,REPBAfSy,«HItfESY,WITKSKHACCrSYS,PiyS>f 
If not CHKSYMSEftACCFSYS) tnen 
beoip 



i t CHKSir^SEK C r OHSk ,GOraSY,TuE)^T,IEi’Sy,iMrOUNST,Rfc;P6:ArSY,wHXI,ESy,li;iTHSyj ) )) 

thpn 

beam 

If CHKSYiSET ( c tlNiruMSTj 1 ) then 
beqm 

ACCEPf ( l^JICONSTj J 

TESrsYRc rcnhOH j , fsys) ?; 

ACCEPr(cnh()N )? 

I’ESrSYSt CtJEGiNR Y, CASES Y,FORSY,GDTJf 5 X,XnENr,IFSy,REPEATSY,wHlLESY,(<TrHSyj+ACCFSYS,FSyS) 


enrt 

# 

If CriKjjYMSET f c ''HEUTuSY ,CASESy,FORSy,GaTjSy, IOEMY,iEsY,REPEArsy,t(/mLESy,WtIHSyn ) then 
beam 

If CHKSY^'SEi'C CCLTOEi^TJ') 1 ) then 

beam 

ASSPRDSibX(ACCFSyS,FSYSX ? 

enrt 

it CHKSXMSETC XfLGuTJSyjJ n then 

beam 

GuTUSXMICACCFSYSrFSySJ ? 

pud 

ei<;e 

If CHKSYMSEl'C Cf tBEGINSy,CASESy,FnRSy,IFSY,REPEAI5yr*iHlLESy,«IXHSy3) )) 
tnen 
beqin 

SXRUCrsrMKACCFSYS^FSYSJf 

end 

end 


end 

end 

0 n^ I 

procedure ACTPAKMRXC ACCFSYS,FSXS; SETUFSYS) ? 
forward; 

procedure EXPHESSIONC ACCFSYS,FSyS;S£T 0 FSYS 3 ; 
forward? 

procedure ASSPKUSIMX; 


beoin 


» r- a I iJ ^ » 

CttiDEi^rjl ); then 


TESrSYSt [XnENi’J ,KSYS)? 

If CHhSYMSKXC ''■ 

oedln 

accephidemdi 

TESTSySilAHHUw .ASSIGN ,t»8RAC .UPAREN .PERTQO l+ACCrSYS- FSYS) 

If CHKSYASEr ((rARRhw , ASSIGN ,66RAC ,liPAREM- ,Pl^I0D 1) J tl»«n 

beam 

If CHKSYMSErC (CtAKROW , ASSIGN ,GBftAC , PERIOD J) )) thfO 

begm 

VARACCESSCCASSIQN l.tASSIGM ,IDSNI,INIC0S5T,l,gftAC ,LPAR£li 
HEAiiCONST.SIGN , Sf RSCONSf 3 +F5f S5 ? ? 

ACCEPK ASSIGN 3? 

■ ^ ^ ■ “ ;ys , 


end 

else 


EXPKESSnfiCACCFSYSrFSYS)? 




If CHKSy“SET( (CtGPAREN J) 3) then 
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beqin 

ftCTpARLiSl’CACCFSYS^FSXSJ ? 

en<i 

en'i 


else fiRHOkSKl'C UOfiNlI , 'ASoOKOSTHT") 

Pad? 

nrocpjiirp wursjsfMT? 
beTin 

r>i‘>x’S6sc luurudYj ^i.urrcDwsri+FjiYai; 

ACCfelRitGUrnSY j ? 

I’bsrs/Ht UNrcjMsrj ,FsifSi?; 

ACCfjlM'f I«TCU*VSTJ 7 

t K C A CCF S i H , FS 1 5 ) ? 

Pn 1 ; 

nroce J'lre ACCFGYarFSifSsStTJFSYs) ; 

torwarif 

nroce inre IF.Si'drCACCFSY3,FSXS{'?aTjFif5) ? 
t jrwari? 

nrocPiure RB;HST.iTCACCTSfs,KSvs:3FrriFSYR) ; 

torw'Bjr’ii' 

procedure frist-Mrc ACCKSY3,FSYR;Ri::rjFSYS) ; 

it Q T '7^ ^ r d I 

procedure sinycxsi’Mi? 


beom 

TKSISYSC lttEGTn»SY,CASFSy,P'JOJjY/TFSY,RePFATSY,WHtGESY,WlTHSYl ,FSYS)? 
If CHKSYWisEit CC IBEGINSYj 1 )) then 
beam 

Cu’<PSrMHACCFSYi,FSYS) ? 

end 


else 


it GHKSYMSFK (CCTFRYn J) then 
beqin 

irSX«.ICACCFSYS,FSYS) : 

end 

If CHKSYFSFrC (CCCASESYI) )) then 
begin 

CASeSl'MIf ACCFSYS,FSYS) ? 

end 

else 

if CHKSYMSEK C( CFORSY,REPEArSY,«(HILESyl) )3 then 
begin 

REPSTMTt ACCFSYS,FSYS)? 

end 

else 


tf CHrSYMSEIC ((EmTHSYJ) )) then 
begin 

WITHSrwICACCFSYSfFSYSl | 

else ERRORSEK C8EGINSY, CASES?, F0RSY,t*ilr8SPCATSY,»HIl»ESy,»I^HSXl 


'STR 8 CrSf«T') 


end; 

broceanre irsiwr? 
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la Del 
4 ? 

begin 


-MXI<SY,NDTSY,REALC0MST, 


a'^eyi«3Y,CA«?ESi ,«''nKSlf ,G'Vi'OSY,TDEwT,TMTCnNSr,L,Bf{ftc ,I*PAKEN rMll<SY,?IDTSY,REALCOMST. 

KEREA£SY,SIGN fSrKGCO''lSl',iHfc,NiiY,«fHTl.eSY,W£THSY] fP'SYS); ' r , uioi ,r^c.«ui.UMOi , 

ACCePf(iFi>Y)? 

* / f HEGT,-^,SYaAae;>Y,rURSY,GOTOSy aOENr, iFSyaMTCD«S'i',KEpeATSY,THENSY,l<HlLESY,WITHSyi + 

ACCtPrtl'HENSY J ,* 

Sl'*-.! lACCKSYS,f£>lS) ? 

4 t 

It SYM S EGSE&Y tnen begin ACCEPT (EGSESY) ; if SY(4 a 

rp5Y tnen ir8i'^r(ACCPSYs,esYS) else SXMKArCFSYS^FSYS) ? goto 4 end ; 

enti; 

Procedure CASEHabUHCCP'dYs,KSys;SErursY5); forward? 
oroceoure CASESiMf? 


STRGCONSlJt 


bePin 

TE.SrSYSt (CASESYJ , I Et^nii Y , 1 UFMT , T'^TCONSl , LBR AC aPARSM , WI, NOTSY , OFSY , REALCONSI , STGN ,STRGCONSlJt 

^ Ol b) f 

ACCEPiCCAtiESY 1 J 

EXPHKSSinia tUKvSY J , lEua5YaDtNX,iNlCUNST,0FSY,REAl.C0MSr,SIG« ^STRGCONSTl tFSYS) ? ? 

ACCliPrtyFSY) f 

CASEBUOYC IKNDSYJ , ICiYnsYj +FRYS) ? ? 

ACCEPrtEMOSYl ; 

TESISYSCACCrSYSa’-iYSl ? 
end? 

procedure casehuuy? 
begin 

TE3rSYS(.Ut5eNr,i'^XCdNST,REAbCO'<ST,<51GN ,5TRGCONST3 ,FSYS)? If CHKRYMSETC C { |IDENT,TNYCONST,RBALCONST, 

sign ,StRGCONSTl) )) 

tnen 

begin 

CyNSTbISTC ICUbiJN J , LBEGIUSY^CARESY, COLON , FQRSY , GUTOSY aOSMl aFSY , TNTCONSX , REPEATSY , WHILESY , MITH5Y3 + 

p SY&J ? I 

ACCEPi (COLON )? 

ST«fC ISENiCOL J fACCFSYR, rSKMlCOL 3+FSYS)?? 

While CHNSY’^GKC (CtSE^iCDL 1 ) ) do 
begin 

ACCEPKSEdXCUL J? 

' ISi^GiNSY^CARESY, COLON / FORSY , GQTOS Y aOfellt aFSY , TWf CONST, REPEATSY, WHILISY, WITM5Y3 ♦ 

r S Y 5 » ? • 

ACCEHTfCObON }t 

ST’^IC ISEMiCQli i+ACCFSYS, CSErtICOL 3+FSXS)? 

end 


end else ERRURSET ( trjENT, TNTCO nSI,KEALCONST,SIGN , STRGCONSTI , 'CASEBODY 

Procedure FUKSt^ I’Caccpsys, PSYS iSETOrSYS) i forward? 

Procedure REPEatst'^KACCFSYS.fSYSjSETufsysi? forward? 

Procedure whiles I'di'CACCFSYS, FSYssSElOFSYS) ?forwarclf 
Procedure repstaT? 


en#? 


oeoin 

TESi'SYSC tFf}KSY,HEPEATSY,NHILESYJ ,FSYS)| if CHKSY*ISSI< l{£i«Ij^SYJ) )> then 
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beiin 

i*»H I lkstmt (, accks ^ s , rsvs ) ; 

^ n ^ 0 1 s o 

It CHKR^MSKfC C ClKfciPdA J }) ttien 
t^eam 

K t; f-’ t: A r « r ! U’ ( c: c F s V a , F s X s j r 

E 1 

It CHKStMSKn tltFJRiYJ) U then 
heTln 


t J ^ 3 T C ^ C ^ F S £ S F S Y S ) * 

eni els** FRHUH^Fl t tFjRSy,Rc:PFAfSSf ,W 4 rfjfc:SY 1 , 'R^PST^t ' ) enrl; 
nrocejure r3 1‘; 

Tf 1 n 

’’d'srs YS ( C /irHIhclSY J , LaFGTi^Slf ,CASPSY, DUSY .FORSY fGHIOSY , TDF.'iT , T FSY ,1 N iCQNST , LBRAC f LPAREM ^NIGSY ,NOXSY f 

RtJftLirjNS'^^RiiREAi’SYfSrGH ^STRGcnwSXrWtrHSYJ+FSY'?) t 

?:XPrtESSXnJia^)asil,lBEGr.^SY,CASF3Y,OaSY,FOKSY,GnrnSY,TuENT,rFSY,iNTCUNST,REPEAISY,WHILESY,WTTHSy]+FSYS);; 

AccEPfconaY j j 

SlfU'CACCFSYSrFSYSj ? 

E n ^ * 

Drocedure RGREArsTMi; 

TESISYSC CRBPEATSYJ , IBfiGINiY, CASESY ORSY .GDXOSY, XDBgT, IFSY , INfCQNST. L8RAC ^LRAREN , NILSY , NOISY , 

HiiAijCOf«ST,RE'<ICUG ,STG''f , STKGCO«Si’, UNI ILS Y , WHILES Y , N I THbYl +FSYS) f 

SlSfsEQCEUNIlUSYJ ,UDSNr,INICONSV,L0RAC ,LPAREN , NILS Y , NOISY r REALCOMST , SIGN , STRGCONSI , UNIILSY3 + 
FSYSJ? y 

ACCEPICUNITLSY),* 

EXPRf:SSiafJ(ACCFSYS,FSYS J ? 
end; 

orocedure FURSTNr; 

OEQin * ^ 

fgsrsfst iFogsn ; if chksyi’^setc cttroRsrI) )) tnen 

beam 

TESXSYSriiDEN^l^t ASSIGN , BEGINS Y , CASBSY , DOS! , fORSY , SOIOSY , iFtY , iNTCONST, LBRAC ,LPAR£N , NILSY, NOISY 

HEALCUNST,REPEAfSY ,SIGN , STRGCnuS'f , wH J LES Y , Wl IHSY j +FS YS) I ; 

TEStSYSC IAS sUn j , rBESrNSYfCASESyfDOSYrFORSYfGOrnSYflOENTrlfSYfiNICUNSTfLBRAC ,LPAR£N rNILSY, NOISY 
REALtJUNST,HEPEAlSY,SIGN , STrGCONvSI , WHILESY , W I IHSY J +rS YS J ? | 

EXPRESSIONC tUdw«T6sY,f03Yj , t PEGINSY , CASESY , DQSY , DOWNTOSY , FO|S|#GOIOSy . IDENT , IFSY , INICONSI , LBRAC 
LPAKEN , NILSY, NU i’SY, REA LCUNST^REPEAISY^ SIGN ,STRGCONaIf jpOSt/ WHILES Y, WITHSYJ +FSy5) 1 1 

It CMhSYPSEK. UU'USYU )) then 
heqln 

ACCEPT I lUSYJ 

end else 

tt chk.sy'^seii ittaawNTJSYU J) tnen 
hedin 

ACCEPT ( UOWN fUSY ; <p t* ' ■» 

ExJKESSIONC?!!uSYirti£G?NG^CAlEiY!6gSY^KRlY,Go|i5Y,IOENT,ir»I#|WICO»ST,RgPWfSY,NHlWSY,NlI«StlW.rSYS3;; 
ACCEPTCDPSY J ; 
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ACCFSlfSffSiSJ f 

end else KRKaHSSmrjRSYJ , 'FURSTMT ') end? 
Proceaure ReCt/ At<Li;siC aCCFSVS , FS yS; S fclTUFSYS) ? f or#(ard? 
Procedure «irrisi’«i:? 


rLSrSYSt U IJTHSyj , ttiiSGlNSY^CAStSy ,uTSY, FORSY ,f?QTUSY ^IDtiNIjriFSY, iNTCnNSI f HFREATSY , WHlLESVl +FSXS) ? 

SS’vSiLlSrcfudSYJ ,lBFGI>^.SY,CASFSY,nuSY,FORSy,GOrOSY,TOFNT,IFSy,l»}TCUMST,Rfc;PEAIsy,WHILESy,»<TXHSYl+FSYS)?? 
ACCeiRICunsYl? 

Si'f'!! (ACCFdYS,fSYSj ? 


end ; 

procedure KECvARiiiSi? 


oeain 

rtSlSYSC llOENTJ ,FBJtS) 

begin 

ACCEHICIDENI); 

YAKACCESSl ICUMA 4 + ACrFSyR, tCHBA 
wnlie CHKSyeiiEj: IUCuFA Jl ) do 
oeain 

ACCEPT (CCM A )? 

TESTSySl I tUEUT) * I AKKOW ,rit3RAC ^PEKTOO 
ACCEPTt IDENl ) ? 

VAKACCFSSC ICUd A i +ACCf SYS, tCOMA 3+FSYS)? 

end 


if CriKSYrtSETc ((riDEwrij )) tnen 
1 +FSYS); ? 

] +FSYS)? ? 


end else 
Procedure 
procedure 


ERKURSFr f I rjFNTJ , 'RECVARDIST') end? 
SiHPLEEXPt ACCFSYS,FSySl£>ErnFSYS) / forward? 

FJCPrtEdSiiJN? 


begin 

FESTsysc tioERr, t''ircu»''d'’’,LaRAC 


,liPARE^J ,NILSY,fJOrSY, 8 FALCDNS'f ,SIGN 


,STKGCnNSIl ,B’SYS)| If CHKSYMSETC 

^UlDENTr 
INTCDNStrLBRAC 
.EPAREN . 
HH-SY,IIOTSl. 
REALCONST.SIGN 

6 !PD( 3 r»nMC! 4 if •» i 


tnen 

begin 

SIMPLER 

wnlie 

begin 

begin 

tf CHKS 

peim 

ACCEPT C 

end el 

tf CHAS 

beam 

ACCEPTt 


KPttea ,iMbY,ReLypi>seu j+accfsys, ceq ,iNSY,REuapMEa 
CHASY’^SFI ClLFd , rNSY,RFUOp«Ea 4 ) j 
If CrtASY^SEl’C fcr^o , 1 NSY,REL 0 PME<(I J) )J then 


tClEQ J) )1 then 


Y«SKTi: 

) 

(C IKEGUPf^Ea 

ijfri.npMKfi ) 


EO 
se 

Y^lSEtTt 


J) )1 then 


end else 

li CHASywsfiiTl ((LtHSYlj )) then 
begin 

ACCtPTdMSY) 


1 +FSYS)| ? 
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end else KRKURSerttKU ,TNSy,Rfi:LiOFMc :9 ] , 'EXPRESSTUN'l ; 

SIMPt^EEXPC tEa /lNSy,REt.OPMH’u J+ACCFSYS, IFJ , T , HFLOPMEQ 1+FSYS); 
end end ■ 

end else RKKJRSBf l LTDENT, TriTCnNSIfliRRAC rLPAREi^ , M iT,SY , NQTSY , RE ALCOMST, SIGN , SIRGCONfSTJ , 'EXPRESSI 

) end; 

nrocedure TeK«( ACCEsYa,FSYs;SETarsYS) ; forward; 

procedure Si^pbEEXP; 


neoln 

I'ESISYKC IlUEMf ,XNjrCUNsr,rjbOAr ,bPARE'I 


,NTl.SY, Mnrsi,KEALC 0 NST, 5 TGN 


.STRGCQNSr] ,FSYS)/ If CHKSYMSETC 

KtlDENr, 
INTCONSy,t0RAC 
,bPAREN - 
MILSY^NOTSY, 
REALCONST.SIGN 
,SfRGCaNSt3) ) 


tnen 

beqin 

It CiiKSYsaEr lUSiGN j) ) then 
oeoin " 

ACCEPl’CSIGN ) 

end 

; 

fttHMl LAunyPAS ,S 1 GN 1 + ACCFS YS , t ADDOPMS ,SIGN J+FSYS)?? 

wniie CHASYMSEI tUAOnyPMS ,SIGN J1 1 do 

oegin if CHKSYaserc (tiAouapMs ,SXGn J) )j then 

oegin 

If CHKsrestiii tUADOoPMS 1 ) J I then 
eegth 

ACCEPH ADUUPMa 3 
end else 

U yHASi««SEi'( cusiGN J 1 )i then 
nedin 

ACCEHi’<.SIG'« J 

end else f KKUK^El'UAOOyPMS ,SIGN ] , '’STMPLEEXP "i; i 

TERMC LAuDOPMS ,S1G« I + ACCfSY S , I AODOPMS ,SIGM J+FSYS); 

end end 

end else EKKaK3EmraeNT,T(^TCONSr,yBKAC ,I|PAREN ,NiLSY,N0tSY,REALCONST,SIGR , SIRGCONSf 3 , 'SIMPIjEEX 
) end; 

Procedure EACfUKiACCF3YS,FSYS;SETUFSYS); forward; 

Procedure t^km; 


penin 

rft.SXSiS( lin£Ni-,iNrcUN3’r,LBRAC ^uPAREN , NILSY, noisy, REALCO tSffSTKGCONSTl ,fsts); c«fcsy«®gT( CCf 

IflENfrlNTCONSI 


rnnhc f 

w Its A v% im ^ 

0 

n 

tnen 

oeoln 

EAC1'U«( UNUSY,l)iV3* ,M0D3Y,»«UGUP . ORSYJ +ACCFSy S , UNOSY , niVSX,«aOSY , MUl^OP rORSlHfSXS);; 
wnlie CHAHYf«SKr t UANnsY,niVaY,Mo6sY,«Ul»OP fORSYJ) 3 do 


iillcisiif i 
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begin if Crt^S^MSKi t C C t ANUSl ,uT\fSir,MnDS5f ,MfJLnp 
begin 

If CHKSJfMot'i'l (.U'-’lVSyj) )J then 
begin 

ACCtHKUl VSjf; 


^nd el s 

It CHKSjlMStXl, CU«UnSY3) )J then 
begin 

ftCCEPri«ouSi } 
ena eise 

If CHKS)f«afe;i(. cu^'uriOP u j) tnen 
begin 

ACCLHl ( M'.iLnp j 


»nci else 

If CHKSX'flSKi'i. (.IIUHSUI jl then 
begin 

ACCiiPi CuHiiV J 

enb else 

If CHKSfM&Kii I, I t»ixhi>y J 1 IJ then 


JJ tnen 


begin 

ftCCbPll J 

e 
K 

end end 


nd"' eise''KH«'JHSfe:iUAijnsy,niVijY,MCJDisY,MULUP «• t r.o 

ACTUH 1 L AiMUijt , 1)1 VbY # e , '-lULUP , URSY j +ACCF'S 1 5 ^ I A NubY ^ Di VSY^iUOSt , MUtUP 


')t 


,0RSY3+FSYS)? 


end else KKKUKbtl'l LIUEi^T, riYTC0NS'r,l.8RAC ,LPAREN 


,N1LSY,M0TSY,REALC0NST,SIRGC0HSTJ,'TERM 


procedure sEiCuw5iKCACCFSYS,F£iysjSETaF$YS3 ? forward; 
procedure fauiuk; 


') end 


oegm 

TESlSlSl Ul>ENf ,iMICaMS'F,LttRAC 


.tiPAREN 


tnen 

oegm 

ACCEPl'C lutfu i; 

Jt not CHi'isY •*SKEt ACCFSYS) tnen 
begin if CMKSYhSEiC ((lARRO* 
begin 

tf ARACCKiiS(.ACL'FSl 5 ,rdYb) ; 


,I.BRAC 


end- else* 

if CHKSYdSFrt UIL-PAKEN 
begin 

ACTFAKMvST CACCrSYd^fSYSj 


i) J) then 


end end 


,NrLSY,NOXSf ^REALCONSIrSTKGCONSX] ,FSYS); if CHKSYMSEJJ^ (J{ 


, PERIOD 13 3) tnftii' 


end else . , » w 

it CHUSYebEi t tiibpAKEN J) 33 then 
begin 

ACCfc.P i’ f LPAKEN 3; „ . 

KAPkESSIOhI IKPAREi)! 1 , IRPAREN J+fSYS3i; 
ACCEPilRFAKt*) if 
Tfc,SiaYSlACrF5YS,F£>YS); 

end els^ 

It CHAvSxMBff i lUNUtdYj) 33 then 
beam 

ACCLPI lh*' iSY 3 f 
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f'ACXUKCACCKatii,Fbl£S) ; 
end else 

If CHKSiMSKi't Cl iNiLljif J J )J then 

t>edin 

ACCEHICNlliSK J ; 

Tt;«XS 1 tSCACCFSi:S,FSya) ; 

end else 

It t ciibaKAC ij j) tnen 

oecjin 

St,rCUNSTH C ACCFSta, ) f 
end else 

it CHKaifMiiKri 1 1 LiNTcnNSx,HKAi-cnNSX] ; J) tnen 
heqm ' 

dUMbfjHi ACCFats^Fajcaj j 
end else 

It I 1 1 uiKuripiarj ) )j then 

bedin 

ACCL.I^l (aTKUCUiiiSl > ! 

Tt;si'sir.scACCF«i£S, ) ; 

end else KKKUHatirU ruH:;«T, rtJTCUNSlMjfiHAC fbFAKEM ,MirjSY,N 0 TSy,REALCUNST,SrRGCaNST 3 , 'FACTOR ') tnd 

proceonre fii:;Mtii)Eac,Nt ACCFSiR, keys saEiursxs forward? 

Proceaure strcunSi'K ; 


peciin 

TESTatSC IL.«KAC J,FSYS 3 ? it CHKSYMBEK KlLiURAC U J) tnen 
beqin 

ACCEHitbHKAC j? 

TESl'SfSC UDENf riNl’CUNaT.baRAC .LPAREM .NTUSY , NOISY , RBKAC 4 RE AECON5T, SIGN .SIRGCONSr] ,FSYS) ? ; 

If CHKSVMSEl U UUENi,lWrcaNfaT,LttRAC .LPAREN , NILS! , sniSIjREALCnwSr, SIGH rSTRGCONSTI) ) tAtn 
seam if CrtASYMSEfC u t iOENT, iNlCUNST,t.bRAC ,LPAREN , NIUM , NOISY , REAT.CONST , SI GN ,STR6CONSTJ3 )) 

tnen 

nedin : 

^'EHbUbSG^C ICUMA rKHKAC J , ICUMA ^RiJRAC ]+FSYS)l? 

While CHKSYmSKX tllCUf^A i 5 1 do 
bepin 

AtCEFKCnf^A )? 

MEhbUtSGNl ICUrtA ,KHHAC JflCUHA ^RBRAC 3+FSYS); 

end 


end end 
? 

A(JCt,FHt<HKAC )! 

rgsisYSt AccrsYs^rsYS)? 

end else ERKOkski i If-awAC 3 ,'SETCONSTK ') end? 
procedure FfcMontSGN? 

Peom 

TES'IS YS ( I lUt fi 1 , 1 N IL-urisT , GBRAC , LPAREH , NII.SX , NOISY , REA^CfiMlr 


,STRGCONSTJ,FSYS)| 


if CHKSYMSETC 
OCCIDENT, 
XNTCOMST^LBRAC 

jliPAREN , 

Hiiisy.MOTsy, 
REAbCONST.SlGN 
,5TRGCOli5Tl) ) 


then 

beam 
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{■:XFKfc:5Sif!iv( lT/»fJUUr j + rtCCPSYS, LTWODDT 3+f’S^S);; 

if CHKsys^Sfc;r 1 1 uwunjT u ) then 

begin 

Accfc;Pi(xwuuui' j; 
e:AHK6;S.SIO«C ACCFStS^FSySj ; 
end 

end else FSKUPSKK LlL)Fl'iT,TNTcn<^SX,LBRAC ^LFAKEN , NILSY , HOtfiY , RfciALCONST , SIGN , SIRGCONST J , '’MEMBOESG 

} 0 rj ^ ♦ 

proceaure ACrUALfFAKACACCrSYS^FSXSsSETOFSYS) ; 


begin 

TfcSISXSC tlD&Nr,iNTCUNaT,LtiRAC ,LPAREN 


NTUSY , NOrsif , REAtCONST , SIGN 


,STHGC0NSI1 ,F5yS) 


} if CHKSYMSETC 
f»(tIOENI, 
INTCONST,liBRAC 
.liPAREN , 
ftlliSY.fJOTsf, 
REAGCQNST.SIGN 
,STR5CONSr33 ) 


then 

begin 

EXPRESSlONf tCUr.ON H*Acr*FSYS, fCOGON j+f'SHSU; 

if CHKSYMSEF (CtCOLH.i j) ) then 
begin if chksymsei’C (ctCDLON j) )) then 
begin 

ACCEPK COLON 3 7 

EXPHESSiONf [COLON J +ACCFSYS , [COLON J+FSyS)7; 

If ChKSYNSEr (CICOLOn 3) ) tnen 

begin 

ACCEPICCOOON 17 
EXPKfcS5iaN(ACCFSYS,FSyS) I 
end 


end end 

end else EKKOHSKIt [luENT, TNTCONSX,LBRAC 
1 end? 

procedure explist? 
begin 

TESISYSC IXDLN'f ,XNrC 0 NST,LtiRAC ,LPAREM 


,LPAREN ,NlLSy,»0ftYrREfti'CONST,SIGlil , SIRGCOMSTJ , ' ACTUALPA 


-NILSY, NOISY, REALCONSt, SIGN , SIRGCONStJ , FSYS) | if CHKsy«SEf( 


piMlr 




mumiZiieii 

rSTRGCOSSfj) } 


then 

begin 

EXHKESSXONC tCOPA J + ACCFSYS » tCuMA JfFSYS)7| 
'■•'hlie CHNSYMSEl [UCO«A J ) ) dO 
oeom 

ACCtPKCOMA 17 
EXPRESSION ( tCUMA 
end 


J+ACCESYS, lCa«<A JfFSYS}? 
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enfi else khrohskii [ident, TNT cni^sx 

J end? 

procedure AcryARijXSX? 




,I.PARE.:< 


,Nil.sy,Mtfsy,REAJ4C0i«ST,SIGN , SIRGCOSST] , 'EXPLISr 


fteq m 

TESXSifSC lyPAHEM l,FaY 5 )? 
Pepin 

ACCER'ril.PARfcN )t 
AC'l'UALPARAC [CUMA fRpAkEM 
'«nlle CHKSXMSEr Cl iCOMA 
oeom 

ACCEFnCOMA )? 
ftCTUALPARAl ICQMA ,RPARKN 
end 
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ACCEPI CRPAWef'' )( 

I'fcSisr.^c Accr 5 j:«,F 5 isj? 
end else ekkokseh ilpakEn 


if CHKSYHSETt CltEPAREN 1) )) 

J,tCU'lA ,RPAREN J+FSJtS)?? 

J ) ) do 

J^iruMA ,RPAREf^ J+FSiS); 

J r'ACTPARLIST') end? 


beam (♦ 'nein 
i^Rli'EUfHTl'Y)? 

CCI=U?LE!*U?CH* = ' •';f.EXtiG(<!=O?LEXSrZES=O?IOULDPss0?SYA:=ILL.EGItli? 

EKHINETWEIUJ SaO?eHHXNufWEl1 J S=0? 
bASTEHRGlVenJafalse?PRnCFRRCURSOrS30? 

ERKPRESEMI lUJ : st aise ? erkphesent c 1 j ssfalse? 

LASTGiNESsfaise? 

RECOVER^ :aNOPKKVAn’^lPC?NOD8'rtARNXNgsj*0? 

aLAiiALiREjataiserauFf iMuEXmo? 

PHEYPURitionlOl mi>?<'»naFERRS:=U? 

PHEVPUsitioniiJ mu? 
tor Ija I to tJUFFjjGIH <1o 

beam KKHaUFCEHCUJ m ?s' ‘'?ERRPUFFER imi] JS' ' 
end; 

(jXNEFOSsO? 

AXTKPX'P£CVJ»false? 

IwlXSY'^f.Ades?lNX rPKEYSfitS? INITSYPOS? INIXIAEXSE? 

IjEXANAUYSE? 

repeat PRUG ( CEOS) , CEOSJ ? ? 

It not EnrtiNpux) tnen 

bEXERKtiHC25) 

until F:urt INPUT?? 

PRUCESSEHKorCtiUFriNUEX)? 
i£ NUUFERKS = a tnen 

beam if Nuar»4ARNiNqs > o tnen 

WRlfEGNtTl‘Y,'»?| '.NaOFWARNlNgSiS,'’ WARHINGS')? 

'•'KIXEUNCTl’Y, 'PROGRAM IS S YNIACTXCALLY O.K,')? 

end 

else !(<RXTE0NIXTY, 'fl? 'rNOOFERKSsa," ERRORS ARO ' , NOOFRAR»I»ptt 3 , ' WARNINGS*')? 

end. 



